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Vorwort 

Lisber Colour-Genia Praund I 

Nachdsm unssr 'Colour — Genie-BucH I' ein e c H t *r 
* R e n n a r* aeworden i a t , b a t a n una viele Colour* 
Genie-Benutzer, ain xweites B u c H speziel) TUr 
ihren Computer hsrauatubringan, 

G e a a |g t - G a t a n : 

Vor I h n a n liegt das 'Colour- 6enJe~fiuch 11*1 

A u c h dieses Mai finden Si e a u f u b a r lOO Seitan 
intereasanta Programme und Tricks; a c: b a u e n Sie 
in das Inhaltsvaneichnis a u f d a r nacnsten Seite, 
u m sich davon zu iiberzeugen- 

N a b a n menreran interexsanten Spielen, daruntar 
ain Komplett erHlartes Mascbinanaprachespiel < t > f 
Qraphik- und MusiRprogrammen, warden vor alien 
D i n g e n die Di&R-Banutzer untar I h n a n wisaenswer- 
t a s in diasem Bucrh f i n d a n t z.B. a i n e Echnella 
Routine, mit dar DiaRetten formatiart warden 
Konnan u . v , m « 

Wir wiin$chen Ihnen vie) S p a p, beim H a c K a n und 

sal der Tippfahlerteufel nicht alkusehr 
g a b; a n Siet 

B o n n * i m December 19S3 



Kalle Braun 
Jiirgen Buchmuller 
Fran k S a g a r 
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ElMge allgeaeine Hinweise 

Bei alien Progroimil 1st ings In diesea. Buch slnd rolgende Zet- 
chenunwandlungen zu beachten: 

*B" entspricht de» 'G> ' 
'A' entspricht de« ' [ * 

Die leisten Basic-Prograane in diesea Buch sirid 'entpocM ' . 
d.h. nach jeden Befehl folgt ein Lserzeichen, in jeder Zeite 
steht nur eln Befehl usm. Es ist natUrlieh nicht notig. alle 
diese Leerzeichen nit einzugeben, es erleichtert jedoch das 
Programmers t andnis und die Fehlersuche. 

Es eapfiehlt sich, zunachst das 'Colour-Genie Buch I' zu lesen, 
da dort wesentlieh einfaehere Dingen erMart und besehrieben 
werden. In d lesen Buch werden sehr viele Problene in Maschinen- 
sprache gelost. dies erfordert noturlich gewisse Kenntnisse des 
Rechners. die Sie sich zunochst aneignen sol I ten. 

U« sich in die rtaschinensprache des Colour-Genie einzuarbei ten, 
empTehlen wtr Ihnen: 

- 'Prograamerung des Z60' von Rodnay Zahs . erschienen m 

Sybex-Verlag 

- 'Das Colour-Genie ROM-List ing* von TCS 



Eln HuslKprograim in Basic; Per 'BLUSSHAKER' 

Das folgende Baslcprograa* erzeugt Melodlen, die eine* Blues 
necneapfunden slnd. 

Es slnd dabel drei Grundakkorde vorgegeben, die In den DATA 
Zeilen 1$0 bis 210 stehen. Die erste Zahl entspricht der Oktav* 
und die zwelte der Tonhoene, wie sle ia PLAY Befehl benutzt 
werden. In Zello 220 stehen die drei TSne fur den Bop. Zeile 
230 enthatt codlert die Folge der Akhorde In Zeile 240 bis 260 
stehen die Tone, die bel der Melodie :ui jewel I igen Akkord 
gesplelt werden konnen. 

Die Helodle wlrd wahrend des Programs LauTs lufallig aus den zu 
dea Akkord passenden Not en ausgewahlt. rUt der Eingabe des 
Tempos bestlaaen Sle die Geschwlndlgkei t der Bapbeglet tung. 



Prograaal ist ingt 



100 OEFINT A-Z 

llO CLS:C0L0UR5 

120 A*-"C0L0UR GENIE &luMMk*r" 

130 F0RL-1T013 

140 C0L0URCLI=IND15) + 1 

150 PRINTTABIUA* 

160 NEXTL 

170 PRINT: PRINT 

180 INPUT'Teapo I 1 . . .6] "iTK 

190 DATA 5.2,6.2.12.2.6,2 

200 DATA 1.3.2.3.9.3.2.3 

210 DATA 2.3.3.3.4.3.3.3 

220 0ATA 1.2.4.2.5.2 

230 OATAl. 1.1. 1.2. 2. 2. 2. 1.1. 1.1. 3. 2. 1.1 

240 DATA 1,4,9.4.3.4,10.4,5.4.12.4.1.5 

250 DATA 1,4.9,4,4,4.10.4,5.4,12,4,1.5 

260 DATA 5,3.12,3,7.3,8.4.2.4,4.4,5,4 

270 DIM BTC3.4).80C3.4) 

280 DIM LTC3) .L0C3) 

290 DIM LC16J 

300 OIrt 3T(3, 7) ,30(3,7) 

310 FOR X-1T03:F0R V-IT04 

320 READ BTCX.YJ.BOCX.Y) 

330 NEXT Y.X 

340 FOR X-1T03 

350 READ LT(X).LOCX) 

360 NEXT X 

370 FOR X-1T016 

360 READ LCX) 

390 NEXT X 

400 FOR X-lT03tF0R Y-1T07 

410 READ JTCX.Y) .OOCX.Y) 

420 NEXT Y,X 



130 C-l :T«l:B-0 

440 GOSUB 170 

450 GOSUB 630 

460 GOTO 440 

470 IF B<>1 THEN 580 

480 PLAY (1,1 ,0.0) 

490 PLAY (2.1,0.0) 

500 0-D+t:IF Dot THEN RETURN 

S10 D>0:6»0 

520 T-T+l 

530 IF TO 5 THEN RETURN 

540 T-l 

550 P-P+1:IF P-17 THEN P-l 

560 C«L(P) 

570 RETURN 

580 D-D+l 

590 IF 0.TEMP0 THEN B»l:D-0 

600 PLftY (1.L0CC) .LTCC) ,8) 

610 PLAY C2.B0CCT) .BT(C.T) .8) 

620 RETURN 

630 NT-NT+RND(3)-2 

640 IF NT<1 THEN NT- 1 

650 IF NT>7 THEN NT-7 

660 PLAY C3.30CCNT) .JTCC.NTJ ,9) 

670 RETURN 



Enterprise - ein strategisches Uel trauasoiel 

CFur dieses Spiel au0 Ihr Colour-Genie »it 32K RAM ausgerustet 
sein. Das Prograaal 1st ing ist koaaentiert, so dap mr Ihnen 
nur noch aoglichst wenige Fehler beia flbtippen wunschen i) 

SPIELERKLflRUNfl 

1) Einleitungt 

Enterprise 1st ein Stretegiespiel . bel dea es auf eine 
kluge Taktik ankoaat . Mon bewegt sich durch die Milch- 
strafie nuf der Sucho noch Klmgonen. die die fnedllchen 
Planeten der Federation ait Tod und Vermchtung ubernehen.' 
Sie sind nun der Koaaandant des Sternsehiffs ENTERPRISE, 
dea einzig verfugbaren Kaapfrauaer In dea Teil der Galaxis, 
wo die ttltngonen zutetzt geortet worden sind. 
Unter LebensgeTahr aussen Sie die Kl ingonen bekaapfen und 
vernichten. ua die Planeten vor dea endgultlg Untergang zu 
bewahren. Zu Ihrer Unterstutzung sind in der Galaxis einige 
Rauabasen verteilt. an die Sie bei Bedarr andocken konnen. 
Die Enterprise wird dann aurgetankt und evtl. reparlert. 
Wenn Sie andocken wol len. aussen Sie nur in denselben Raua- 
sektor steuern. in der die Basis stent , 

2) Hoaaandos; 

Ein Koaaando wird voa Coaputer dann erwartet. wenn auf dea 
Bitdschira 'BEFEHL ">' erscheint. Wenn Sie elnen ralschen 
Befehl eingeben, wird eine Zuseaaenr&ssung der gu I tiger. 
Befehle ausgegeben. 

NFlV — > Steuern 

rtit diesea Koaaando konnen Sie die Enterprise durch die 
Galaxis bewegen. Die Galaxis ist in Quadraten und Sektc-ren 
unterteilt. Wol len Sie Klingonen bekaapfen. so aussen sich 
diese in Ihrea Quadranten aufhalten. Ua einen solchen 
Quadranten zu erreichen, geben Sie den Qefehl NflV 
ein. Sie werden dann nach Richtung und Lange Ihres Kurses 
gerragt. Der Wert fur die Richtung llegt zwischen l und 9 
und bedeutet folgendes: 
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Die Eingabe von Rlchtungswerten erlaubt auch Koaaazahlen 

daait eine genaue Steuerung aoglich ist. 

Die Kurslange wird durch den Werpfaktor festgelegt. 

Die Zahl vor dea Koaaa gibt dabei die Anzahl der zu durch- 

fliegenden Quadranten und die Nachkoaaazahl die der 

Sektoren an. fiber Vorsicht ist geboten ' Sollte ein Stern 

auf Ihrer Flugbahn liegen. so werden die Tnebwerke 

autoaatisch abgeschaltet und die Energie fur den Flug geht 

ver loren. 



NAT — > M « n « fc> * as * es r 

Der Nahabtaster zelgt Ihnen ein Bild des Quadranten. in del 
sich die ENTERPRISE aufhalt, sowie einen verkurzten Status- 
report. Ein Quadrant 1st in 8 ael 8 Sektoren unterteilt. 

Pie Svabole bedeutent 



Enterprise 


E 


Kl ingone 


H 


Rauabasls 


B 


Stern 


» 



FftT — > Fe i- nob t as t & r 

Der Fernabtaster zelgt den Inhalt ddes eigenen und der um- 

I iegenden acht Quadranten an. Der dreistel 1 igen 2ahl ent- 
nehaen Sie: 

1. Zlffer - Anzahl der Klingonen 

Z. Ziffer - Anzahl der Rauastat ionen 

3. Zirrer - Amah I der Sterne 

PHr=i -> Phaser 

Mit dea Phaser kann omn alle Klingonen ia Quadranten ait 
der Energie beschiepen, die aan angibt. 1st die abgefeuerte 
Energieaenge zu knapp gewesen. so greifen die Klingonen 
lhrerseits die ENTERPRISE und konnen erhebllchen Schaden 
nnrichten (Status-Report beachtenil. 

TOF* — > Torpedo 

Sie reuern ein Torpedo ab. indea Sie wie beia Navlgieren 
den Kurs angeben. Sol I ten nach dea Abschup des Torpedos 
noch Klingonen vorhanden seln, so schlepen dlese ebenfalls 
eur die ENTERPRISE. Der Torpedokurs konn Uber 
COM. 0ption2 voa Bordcoaputer errechnet werden. 

SCM — > Schutzschirm 

Dieser Berehl verandert die Energie der Schutzscht r»e . 
Wird die ENTERPRISE angegrlften, so sind diese Schirae 
das einzige Mittel einen Kaapf iiberstehen. Ohne Energie 
aur den Schutzschlraen ware Ihr Schiff beia geringsten 
Treffer vernichtet. 



CO\~\ — > Computerabf rage 

Nachdea Sie dieses Koaaando elngegeben naben. wir die Frage 
nach einer Option gestellt. Diese Option »up eine Zahl 
zwischen und 4 sein, die folgende Bedeutungen haben. - 

0: Zeigt alle bisher erfolgten Fernabtaatungen. 
(Code siehe oben) 

1: Gibt einen Statusreport 

2: Torpedokursberechnung (Richtung/Lange) 

3: Rechnet Kui-s und Geschwindighei t zur Sternbasis in 
Ihrea Quadranten uas. Oer WarpTaktor betrSgt nur 
1/10 des Geschwindigkeitswertes. 

4: Berechnet den Kurs zwischen zwei Punhten. 

Lassen Sie sich durch die Vielfalt der Koaaandos nicht 
verwirren. Nach einiger Ubung wird Ihnen jeder Berehl in 
Flelsch und Blut libergehen. Etwaige UnMarheiten warden 
sicherllch im Spiel geklort we r den. 



Prograaal 1st lug: 



10 ' SUPER STfiR TREK 

20 ' 

30 RP.ND0M 

40 CLEAR 600 

50 COLOUR 3 

60 CLS 

70 PRlNT"0er Mel troua. . . . unendliehe Wei ten..., 

80 COLOUR S 

30 PRlNT"WJr schrelben das Jahr 2163 alter 

100 PRINT"Zeitrechnung. Die ENTERPRISE 1st alt 

110 PRINT"ihrer ueber 400 Mann starhen Besatzung 

120 PRINT"Unterwegs urn neue Wei ten zu errorschen, 

130 PRIHT"neues Leben und neue Zi vi I isot ion . 

140 PRINT 

150 COLOUR 11 

160 PRINT"Sle dringt dabei in Galaxien vor , die 



170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 
320 
330 
310 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
510 
520 
530 
540 
560 
560 
570 
580 
590 
600 
610 
620 
630 
640 



PRINT"nie ein Mensch zuvor gesehen hat i" 

PRlNT"Ihre Auffiabe als Captain der Enterprise 

PRINT"ist es, Ihr Schiff und die Besatzung 

PRINT"vor den Angnffen der relndlienen 

PRINT"Kl ingonen zu schuet2en 

PRINT 

COLOUR 16 

PRINT"0ie Foederation wuenscht Ihnen 

PRINT" viol Errolg. 

Z»." 

DIM GC8, 8). CC9, 2). K(3, 3). NC3), ZC8, SI, 0C81 

T-C RNO(20)+20)«100 

TO-T 

T9.RN0(10)+25 

00-0 

E-3000 

EO-E 

p. 10 

PO-P 

S3- 200 

S-0 

E9-0 

H9-0 

X»* "basis" 

X0*»" 1st" 

1NIT ENTERPRISE POSITION 
Q1-RNDC8) 
Q2-RNDC8) 
S1-RN0C8) 
S2-RNDC8) 
FOR l-l TO 9 
C(l. l)-0 



C(l , 
NEXT 
CC3. 
C(2. 
CC4, 
CC4. 
CC5. 
C(6. 
C(l. 
CC2. 
C(6. 
C(7, 
CC8. 
CC9. 
CC8. 
FOR I 



2)«0 

!)■- 

1)-- 
1)-- 
21"- 
2)-- 
2)-- 
2)-l 
2)-l 
1)-1 

n-i 
n-i 

21-1 
2)-l 
-1 TO 8 



650 DCD-0 

660 NEXT 

670 PllS-"NAVNl=nTATPHATORSCHZERCOri" 

680 ' GALRXIS RUFBAUEN 

690 ' K3-Klinaonen B3-8asis S3-Stern 

700 FOR I-l TO 8 

710 FOR 3-1 TO 6 

720 K3-0 

730 2CI, 3)-0 

710 Rl-RNDCO) 

750 IF Rl>.98 THEN H3-3i K9-K9+3: GOTO 780 

760 IF Rl>.95 THEN K3-2; K9-K9+2: GOTO 780 

770 IF Rl>.80 THEN H3-1: K9-K9+1 

780 B3-0 

790 IF RNDC0)>.96 THEN 83-1: B9-B9+1 

800 GCI, 33-H3«100+B3*10+RNDC8) 

810 NEXT 

820 NEXT 

830 IF K9>T9 THEN T9-K9+1 

840 IF B9-O0 THEN 900 

950 IF GCQ1. 02X200 THEN G101. Q2)«G(Q1. Q25+10O: K9»K9+1 

860 B9*l 

970 GCQ1, Q2)-G(Q1. Q2)+10 

890 Q1-RNOC83 

890 Q2-RNDC9) 

900 K7=H9 

910 IF B9<>1 THEN X*-"basen": XO*-" sind" 

920 COLOUR RNDU6) 

930 PRINT fl 930,"0ruecke <RETURN>" 

940 IF<PEEK(tHF840)AN0 13-0 THEN 920 

950 CLS 

960 COLOUR 16 

970 PRINT"Oas Oberkoaaando gibt Dlr den fturtrag:" 

980 PRINT 

990 PRINT"Zerstoere":K9:"Hl ingonische Rauaschi f fe. " 

1000 PRINT"die in Foederat ionsgeblet eingef al len" 

1010 PRINT"sind.bevor sie das Hauptquart ier" 

1020 PRINT"angreiren koennen." 

1030 COLOUR 7 

1040 PRINT 

1050 PRINT-Du hast bis STRRDATE";T0+T9["Zei t ,ol=o":T9 

1060 PRINT"Einheiten" 

1070 COLOUR 6 

1080 PRINT 

1090 PRINT"Es";XO*; B9 : "Sternen": X» : " i« eventuellen" ' 

1100 PRINT"Hamprgebiet ,ua Dich zu versorgen" 

1110 ' QUADRANT BERECHNEN 



1120 Z4-Q1 

1130 Z5«Q2 

1140 K3-0 

1150 B3-0 

1160 S3-0 

1170 65»0 

lieO D4-RND( .5) 

1190 ZC01. Q2).<3(Q1. Q2) 

1200 IF HK1 OR Q2<1 OR Ql>8 OR Q2>6 THEN 1170 

1210 GOSUB 4940 

1220 PRINT 

1230 IF TOOT THEN 1320 

1240 COLOUR 16 

1250 PRINT 

1260 PRINT"Delne Mission beginnt m gaLaktischen Quadranten 

1270 COLOUR 5 

1280 PRINT Q2»: 

1290 COLOUR 16 

1300 PRINT" - ." 

1310 GOTO 1330 

1320 PRINT"Du komnst nach '"fGZ*:"'." 

1330 PRINT 

1340 K3«INT(GCQ1, 02)*. 01) 

1350 B3-INTCGCQ1. Q2) * . 13 - 10*K3 

1360 S3*G(G1. Q25-100*K3-10*B3 

1370 IF K3-0 THEN 1430 

1380 COLOUR 3 

1390 PRINT"KAMPFGEBIET CONDITION ROT" 

1400 IF S>200 THEN 1430 

1420 PRINT"SCHUTZSCHIRtt£ GEFftEHRLICH SCHWHCH" 

1430 FOR 1-1 TO 3 

1440 Kt I , n-o 

1450 Ml. 2)-0 J v ■* 

1460 NEXT 

1465 COLOUR 16 

1470 FOR 1>l TO 3 * 

1460 K( I, 3)-0 

1490 NEXT 

1500 Q*-Zl+Z*+ZS+Z*+Z*+ZI+Z*+L£FT*CZ*, 17) 

1510 ' POSITIONEN IN QURDRANTEN FESTLEGEN 

1520 A*-"<E>" 

1530 Zl-Sl 

1540 Z2«S2 

1550 GOSUB 4870 

1560 IF K3<1 THEN 1670 

1570 FOR 1-1 TO H3 
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1590 GOSUB 4780 

1590 fl»-"+K+" 

1600 Zl-Rl 

1610 Z2-R2 

1620 GOSUB 4S70 

1630 HCI. 2)-R2 

1640 K(I. D-Rl 

16SO HCI. 3)-S9«C.5+RN0CO)) 

1660 NEXT 

1670 IF B3<1 THEN 17S0 

1680 GOSUB 4780 

1690 M«">B<" 

1700 Zl-Rl 

1710 B4-R1 

1720 Z2-R2 

1730 B5-R2 

1740 GOSUB 4970 — • ■ 

1750 FOR 1-1 TO S3 

1760 GOSUB 4780 * - 

1770 A»»" M " 

1780 Zl-Rl 

1790 Z2-R2 

1800 GOSUB 4870 

1810 NEXT 

1820 GOSUB 5460 

1830 IF S+E>10 THEN IF E>10 OR DC7J-0 THEN 1870 

1840 PRINT 

1850 PRINT" SCHWERER FEHLER " 

I860 GOTO 4640 

1870 INPUT"Befehl "sAl 

1880 FOR 1-1 TO 9 

1890 IF LEFTHM, 3)<>MID*CR1S. 3»I-2. 3JTHEN 1910 

1900 ON I GOTO 2030, 1820. 3190, 3410. 3790. 4480. 6530. 7280 

1910 NEXT 

1920 PRINT 

1930 PRINT'TOLGENOE EINGA8EN SIND MOEGLICH" 

1940 PRINT" NftV -> BEWEGEN" 

1950 PRINT" NAT •> NAHABTASTER" 

1960 PRINT" FftT -> FERNABTASTER" 

1970 PRINT" PHfl -> PHASER" 

1980 PRINT" TOR -> TORPEDO" 

1990 PRINT" SCH -> SCHUTZSCH IRME" 

2000 PRINT" ZER -> SCHADENSMELOUNG" 

2010 PRINT" COM -> COMPUTERANFRAGE" 

2020 GOTO 1830 

2030 ' FLUGKONTROLLE 

2040 INPUT"Riehttmg ";C1 

2050 IF Cl-9 THEN Cl-1 
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2060 IF CKl OR Cl>9 THEN PRINT: PRINT" Ltn. Sul uiFalschsr Kurs.Sir I" 
t GOTO 1830 

207O xt»"a- 

2080 IF 0(1X0 THEN X*-"0.2" 

2090 PRINT"Warp Faktor (0-**iX» :">"i 

2100 INPUT Wl 

2110 IF OC1XO RND Wl>.2 THEN 2160 

2120 IF W1>0 AND WK-8 THEN 2130 

2130 IF Wl-0 THEN 1830 

21*0 PRINT 

2150 PRlNT"Cheftechniker Scott t Warp"sUl i '* •> Oas acharfen unsere rt 

aschinen ntcht '" 

2160 PRINT"Warptriebwerhe beschoedlgt '" 

2170 PRINT" Maxiaale Beschleunigung:0.2 Warp" 

2180 GOTO 1830 

2190 N-INTCW1S8+.5) 

2200 IF G-N>-0 THEN 2280 

2210 PRINT 

2220 PRINT"Moschinenrou«sFuer Warp"jWl:" relcht die Energle nlcht au 

s l- 

2230 IF S<N-E OR 0C7K0 THEN 1830 

2210 PRINT 

4250 PRINT"Schlr»hontrolYe»Sehitde slnd Ht"iS 

2260 PRINT"EnergieelnKeiten ae laden I" 

2270 GOTO 1830 

2280 * BEWEGEN L FEUERN DER KLINGONEN 

2230 FOR 1-1 TO K3 

2300 IF KCI, 3)«0 THEN 2400 

2310 ft»»" 

2320 Zl-KCI. 1) 

2330 Z2-KCI, 1) 

2340 GOSUB 4870 

2350 GOSUB 4780 

2360 KCI. U-Zl 

2370 H£I. 2)-Z2 

2380 fiS-"+K+" 

2390 GOSUB 4870 

2400 NEXT 

2410 GOSUB 6330 

2420 Dl-0 

2430 D6-W1 

2440 IF Wl>-1 THEN 06-1 

2450 FOR 1-1 TO 8 

2460 IF DCI)>-0 THEN 2510 

2470 DC I) -DC I) +06 

2480 IF D(I)>-.1 AND DCIXO THEN DC I ) — . 1 : GOTO 2510 

2490 IF OCIXO THEN 2510 

2S00 IF 0(IX>1 THEN 01-1: Rl-I: GOSUB 6060: PRINT"Schadens«elduriBi":Q 
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2*;" repariert" 

2510 NEXT 

2520 IF RND<0)>.2 THEN 2640 

2530 R1*RNDC8) 

2540 IF RNDC0)>».6 THEN 2600 

2550 D(RlJ-0(Rl)-( RNDCS) ) 

2560 PRINT"Schadens»eldungi"j 

2570 GOSUB 6060 

2580 PRINT 62*:" beschaedigt" 

2590 GOTO 2630 

2600 0(RI).DCR1)+RN0C3) 

26 to PRINT-Schadensaeldungt"; 

2620 QOSUB 6060 

2630 PRINT" reporlaren scKreltet varan" 

2640 ' ENTERPRISE WIRD BEWEGT 

2650 A*-" " 

2660 ZLINTCSl) 

26T0 22-INT(S2) 

2680 QOSUB 4870 

2630 Xl-CICl. l)+[CCCl+l. D-CCC1, 1 ) )*< C1-INTCC1 5 ) 

2700 X»S1 

2710 Y-S2 

2720 X2.CCC1, 2)+CC(Cl+l, 2J-CCC1. 2) )»CC 1 -INTCC 1)) 

2730 Q4-Q1 

2740 05»Q2 

2750 FOR 1-1 TO N 

2760 S1.S1+X1 

2770 S2-S2+X2 

2780 IF SKI OR St>»9 OR S2<1 OR S2>«3 THEN 3000 

2790 S8-INTCSl)*24+INT(S2)*3-26 

2800 IF MIDSCQS, 58, 23." " THEN 28S0 

2810 Sl-INTtSl-Xl> 

2820 S2-INTCS2-X2) 

2830 PRINT"Worptriebwerke schalteten sich weeen schlechter Novigati 

on in Sektor "tSl ;". "sS2s" ab" 

2840 GOTO 2880 

2850 NEXT 

2860 S1-INTCS1) 

2870 S2-INT(S2) 

2880 R*-"<E>" 

2830 Zl'INTCSl) 

2900 Z2-1NTCS2) 

2910 GOSUB 4870 

2920 GOSUB 6240 

2930 TB»1 

2940 IF WK1 THEN T8- . 1*INTCW1*103 

2950 T-T+T8 

2960 IF T>T0+T9 THEN 4640 

2970 ' 1ST ENTERPRISE RNGEDOCKT "> 

2980 GOTO 1820 

2390 ' 
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3000 X-8*01+X+N*X1 
3010 Y-8*Q2+Y+N*X2 
3020 Q1-INTCX/8D 
3030 02-1NTCY/8) 
3040 S1-1NTCX-01*8> 
3050 S2-INTCY-Q2*8) 
3060 IF Sl-0 THEN 01-01-1; Sl-8 
3070 IF S2-0 THEN 02-02-1 i S2-8 
3080 X5-0 

3090 IF OKI THEN X5-1 i 01«1: Sl-1 
3100 IF Ql>8 THEN X5- 1 f 01-81 Sl-8 
3110 IF 02<V THEN X5-1 s 02- V : S2-1 
3120 IF Q2>8 THEN X5-1 I 02-8t S2-8 

3130 IF X5<>0 THEN PRINT: PRINT"Ltn. Uhura: Es 1st uns verbotsn ,dle 
Gatoxls zu ver 1 ajsen. Die Triebwerke sol I en abgostollt uerden <"; 
PHINT"Chertechntker Scot t :Tr iebwerke gestoppf 
3135 PRINT" Cpt. Chehov: Wir slnd In Sektor"iSl ! ". "iS2i "des Ouodranten 
"j 

3140 IF T>T0+T9 THEN 4640 
3150 IF 8*01+02-8*04+05 THEN 2880 
3160 T-T+l 
3170 G0SU8 6240 
3460 GOTO 1120 
3180 " FERNRftORR 
3200 ' 

3210 IF DC3X0 THEN PRINT"Fepnradar fael L t aus": GOTO 1830 
3220 PRINT"Fernrodar Ausiaertung fuer 
Quadrant":01;".":02 

3230 01*»" " 

3240 PRINT 01* 

3250 FOR I -01-1 TO 01 + 1 

3260 N(l)--1 

3270 NC23--2 

3280 NC31--3 

3290 FOR 3-02-1 TO 02+ 1 

3300 IF I>0 RNO I<9 AND 3>0 RNO 0<9 THEN NC 0-Q2+2) -Gt I , 31: 2C I . 0)-GC 

I. 3) 

3310 NEXT 

3320 FOR L-l TO 3 

3330 PRINT": "j 

3340 IF NCLXO THEN PRINTSTBINGIC 3. 135) : " "ss SOTO 3360 

3350 PRINT RIGHT*CSTR*(N(L>+1000), 3J{" ": 

3360 NEXT 

3370 PRINT"t" 

3380 PRINT 01 * 

3390 NEXT 

3400 GOTO 1930 

3410 ' PHASER KONTROLLE 

3420 ' 

3430 IF DC4X0 THEN PRINT"Phoser slnd inaKtiv": GOTO 1830 
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3440 IF K3<0 THEN PRINT"I0 SpocksSensoren zeigen kelne Ml Ingonen in dl 

esea Quadrant en" : GOTO 1830 

3450 IF DC8X0 THEN PRINT'TeMer 1» Fewer l ei tco»put er " 

3460 PRINT"Phoser lm Ziel" 

34T0 PRINT"Verfueabere En*rgie;";E( " Elnhelten" * 

3480 INPUT"Schu5»enePBte ";X 

3490 IF X<-0 THEN 1830 

3500 IF E-X<0 THEN 3470 

3510 E»E-X 

3620 IF 0(7X0 THEN X-X*RN0<03 

3530 HL1NTCX/K3) 

3540 FOR I- I TO 3 

3550 IF HI I. 3X»0 THEN 3760 

3560 H-INTCCH1/SQRCCHCI. 1XS11R2+<KCI, 2XS2)A2n*( RNOC0)+2X 

3570 IF H>.15«KCI. 35THEN 3600 

35SO PRINT"Sensoren zeigen keinen Treffer" 

3590 GOTO 3760 - - ' 

3600 K(I. 3XKCI. 3)-H 

3610 PRINT H»" Elnhelten trafen Kl ingonen in":PRINT"Sehtor":K( I . 1);", 

"SHCI, 2) 

3620 IF HCI. 3X-0 THEN PRINT" «** HLINGONE ZERSTOERT ***": GOTO 36 

60 

3630 PRINT" CSensoren zelgen";K(I. 3) 

3640 PRINT" verbleibende Elnheitenl" 

3650 SOTO 3760 

3660 K3-H3-1 ' 

3670 K9-K3-1 

3680 Zl-HCI. I) 

3690 Z2-KCI. 2J 

3700 flt»" 

3710 GOSUB 4870 

3720 KC I. 33-0 

3730 GC01. 02XGCQ1. 02X100 

3740 ZCQ1, Q2XGCQ1. 02] 

3750 IF K9<-0 THEN 7830 

3760 NEXT 

3770 GOSUB 6330 

3780 GOTO 1830 

3790 ' PHOTONENTORPEDO KONTROLLE 

3800 ' 

3810 IF P<-0 THEN PRINT"Keine Torpedos »enr ver ruegbar"! GOTO 1830 

3820 IF DC5X0 THEN PRINT"Agschusseinr ichtung ousser Funktion": GOTO 1 

830 

3830 INPUT"Torpedokurs (1-3) "(CI 

3840 IF Cl-9 THEN Cl-1 

3850 IF CXI OR Cl>9 THEN PRINT"Chefcov : Fa I ache Kursdaten.Sir i ": GOTO, 1 

830 

3860 X1-CCC1, 1X(CCC1 + 1. 1XCCC1. DXCCl-INTtCl)) 
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3870 e-e-2 

3680 P-P-l 

3690 X2-CCC1. 2)+(C(Cl+l. 2J-CCC1. 2) )*(C1- INTC CI)) 

3900 X»S1 

3310 Y-S2 

3920 PRINT"Torpedo r I lest" 

3930 X-X+Xl 

3340 Y-Y+X2 

39S0 X3-INTCX+.5) 

3860 Y3-1NTCY+.5) 

3370 IF X3<1 OR X3>8 OR Y3<1 OR Y3>8 THEN 4450 

3980 PRINT" ":X3:"."sY3 

3390 ft*-" 

4000 21 -X 

4010 22-Y 

4020 GOSUB 5330 

4030 IF 23<>0 THEN 3930 

4040 R*-"+K+" 

40S0 Zl-X 

4060 Z2-Y 

4070 GOSUB 5390 

4080 IF 23-0 THEN 4190 

4090 PRINT"*** Kllngone rerstoert ***" 

4100 K3-K3-1 

4110 H9-K9-1 

4120 IF K9<-0 THEN 7630 

4130 FOR 1-1 TO 3 

4140 IF X3-KCI, MftNO Y3-KC I . 23THEN 4170 

4150 NEXT 

4160 1-3 

4170 HCI. 3)-0 

4180 GOTO 43T0 

4190 A*-" * " 

4200 21 -X 

4210 22-Y 

4220 GOSUB 5390 

4230 IF Z3O0 THEN PRINT"Stern bei" : X3; " . ": Y3: " absorbierte Torpedo": 

GOSUB 6330: GOTO 1830 

4240 ftt-">B<" 

4250 21 -X 

4260 22-Y 

4270 GOSUB 5390 

4280 IF Z3-0 THEN 3920 

4290 PRINT"*** Sternenbasla zerstoert «**" 

4300 B3-B3-1 

4310 B9-89-1 

4320 IF B9>0 OR K9>T-T0-T9 THEN 4350 

4330 PRINT"Das wars.Kapl taeni < ■ " 

4340 PRINT"Ou biat Meruit Oeines Komandos entzogenund zu 99 Sternenta 

gen Straforbeit auf Cygnus 12 verdonnert u<" 

4350 PRINT"Da» Fl ot t enkomnnndo saamel t Anklage- punhte gegen Dlch" 
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4360 00-0 

4370 Zl^X 

4380 Z2-V 

4390 fl*«" " 

4400 QOSUB 4670 

4410 GCfll. 02)-K3*100+B3»!0+S3 

4420 ZCQ1. Q21-GCQ1, 02) 

4430 GOSUB 6330 

4440 60T0 1830 

4450 PRINT"Torpedo glng e» Zlel vorbel" 

4460 GOSUB 6330 

4470 GOTO 1830 

4480 ' SCHIRMKONTROLLE 

4430 IF 0C7X0 THEN PRINT"Schli*mkontrol le ausgef alien" : GOTO 1830 

4S00 PRINT"Verfuegbare Energies "jE+S 

4510 INPUT'*Wieviel Energie in die Schirae ";X 

4520 IF X<0 OR S-X THEN PRINT"<Schir*e unveraender t >" : GOTO 1830 

4530 IF X>E+S THEN PRINT"Schir»kont rol le : Wir sind nieht die Schet 

zkaner der Foederot Ion": PRINT" <Schime unveroendert >": GOTO 1830 

4540 E-E+S-X 

4550 S-X 

4560 PRINT"Dof lektorraum : Schil de jetzt auf" 

4570 PRINT INT(S)J" Elnheiten" 

4580 GOTO 1830 

4S90 * ENDE DES SPIELS 

4600 CLS 

4610 IF T>T0+T9 THEN PRINT"Delne Zelt 1st ueberschr 1 t ten, das Haupt-quo 

rtler 1st vertoren und ait in* die Galaxls.Ou Niete iiiii"; END 

4620 PRINT"Heute 1st der Sternent as";T 

4630 GOTO 4680 

4640 PRINT 

4650 PRINT" DIE ENTERPRISE 1ST ZERSTOERT" 

4660 PRINT" DIE FOEDERATION 1ST VERLOREN" 

4670 GOTO 4620 

4680 IF K9>1 THEN PRINT"Schade. es woren noch":K9:~ Ml ingonische": PRIN 

T"Schlacht9chirfo uebrlg" ELSE PRINT"So tin Mist , haet test Du das letzt 

e"j PRINT"Scnlfr doch noch erwischt . Pech< " 

4690 PRINT'*Daa 1st das End* Deiner Mission '" 

4700 PRINT 

4710 PRINT 

4720 IF 69-0 THEN END 

4730 PRINT"Dle Foederatlon braucht einen neuen Koaaandanten.also F 

relwillige vor ! I ! t <" 

4740 PRINT 

4750 INPUT'Tritt heran und tlppe "AVE - ";R* 

4760 IF A*-"AYE" THEN RUN 

4770 END 

4780 ' LEEREN PLATZ IM QURDRRNTEN FINDEN 

4780 R1-RN0C8) 
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4800 R2»RNDC8) 

4610 fl*-" 

4920 Zl-Rl 

4830 Z2-R2 

4640 GOSUB 5390 

4850 IF Z3-0 THEN 4790 

4860 RETURN 

4870 ' 

4830 Sa-INT(Z2-.53*3+INTCZl-.5)»24+l 

4890 IF LENtAS)<>3 THEN PRINT"FEHL£R" : STOP 

4900 IF S6»l THEN Q*-F»*+RIGHT*CQ* , 199): RETURN 

4910 IF 58-190 THEN Qi»LEFT*CQI . 1693+A*: RETURN 

4920 Q*-LEFT*(Q*. SB-1 J +PH+RIGHT* (Q» . 190-SQ) 

4930 RETURN 

4940 ' NAME OES GEBIETS BESTIMMEN 

4950 IF Z5<-4 THEN ON Z4 GOTO 4970, 4990. 5010. 5030, 5050, 5070. 5090 

, 5110 

4960 GOTO 5130 

4970 G2»-"fmtares" 

4980 GOTO 5120 

4990 G2*»"Rigel" 

5000 GOTO 5120 

5010 G2*«"Procyon" 

5020 GOTO 5120 

5030 G2*-"Wesa" 

5040 GOTO 5120 

5050 G2*«"Canopus" 

5060 GOTO 5120 

5070 G2S-"ftl tait-" 

5080 GOTO 5120 

5090 G2i- "Sagittarius" 

5100 GOTO 5120 

5110 G2*-"Pollux" 

5120 GOTO 5290 

5130 ON Z4 GOTO 5140. 5160. 5160. 5200, 5220. 5240. 5260. 5260 

5140 G2*-"Sirlus" 

SI 50 GOTO 5290 

5160 G2*-"0eneb" 

5170 GOTO 5230 

5180 G2*-"Capella" 

5190 GOTO 5290 

5200 62*-"Betelseuze" 

5210 GOTO 5290 

5220 G2t - "ft 1 debar an" 

5230 GOTO 5290 

5240 G2»-"Reaulus" 

5250 GOTO 5290 

5260 G2*-"ftrcterus" 
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5270 GOTO 5290 

6280 G2*«"Splco" 

5290 IF G5<>1 THEN ON Z5 GOTO 5310. 5330. 5350, 5370, 5310, 5330, 5350 

, 5370 

5300 RETURN 

5310 G2*«G2*+" I" 

5320 RETURN 

5330 G2*-G2*+" II" 

5310 RETURN 

5350 32*.G2*+" III" 

5360 RETURN 

5370 Q2*-G2*+" IV" 

5360 RETURN 

5390 Z1-INTCZ1+.5) 

5400 Z2-INT<Z2+.5) 

5410 S8^CZ2-1J*3+CZ1-1)*24+1 

5420 Z3-0 

5430 IF MIDtCQ*, S8 , 31 ORtTHEN RETURN 

5440 Z3-1 

5450 RETURN 

5460 " ftNFRNGSBILO UNO NRHABTftSTER 

5470 ' 

5480 FOR I-Sl-1 TO Sl+1 

5430 FOR 3-S2-1 TO S2+1 

5500 IF INTCI+.5X1 OR 1NTCI + .S3>8 OR INTCJ+.5X1 OR INTC3+.55>8 THEN 

5560 

5510 Rt-">B<" 

5520 Zl-I *< 

5530 Z2-3 

5540 GOSUB 5390 - , 

5550 IF Z3-1 THEN 5600 

5560 NEXT 

5570 NEXT 

5580 D0»0 

5590 GOTO 5670 

5600 00-1 

5610 C*-"DOCK" 

5620 E-EO 

5630 F«PO 

5640 PRINT"Schlr«e werden fuers andocken obgebout" 

5650 S-0 

5660 QOTO 5700 

5670 IF K3>0 THEN C»."*ROT*"i QOTO 5700 

5680 CS-**GRUEN" 

5690 IF E<EO*.t THEN C*-"GEL8 " 

5700 IF DC2)>-0 THEN 5750 

5710 PRINT 

5720 PRINT"*** helne Nahabtsstung moealich ***" 



5730 PRINT 

5740 RETURN 

5750 01*-CHRtC223)+STRINGl(16.211)+CHR*<227) 

5760 02*-CHH»C227)+STRINGSC16,218)+CHR*C223) 

5770 PRINT 01 1 

5780 FOR I»l TO 8 

5790 PRINTCHR*C207)J 

5900 FOR 0^(I-1)*24+1 TOC I-l)«24+22 STEP 3 

5810 PRINT" "iMIOtCQI. J + l. 1); 

5820 NEXT 

5830 ON I GOTO 5840. 5860, 5320. 5840. 5960, 5980. 5000. 6020 

5840 PRINTCHR*(219) j" Sternentaa"; INT(T»10) * , 1 

5850 GOTO 6030 

5860 PRINTCHRJC219) t" Condition "s 

5870 IF C*-"»R0T«" THEN COLOUR 3:GOT05B90 

5880 COLOUR 2 

5890 PRINT C* 

5900 COLOUR 16 

5910 GOTO 6030 

5920 PRINTCHRSC219) j" Quadrant ";aii",":Q2 

5830 GOTO 6030 

5940 PRINTCHR*C219)s" Sohtor "sSli"."sS2 

5950 GOTO 6030 

5960 PRINTCHR*C219)s" TorpedOS **:INTCP) 

5970 SOTO 6030 

5980 PRINTCHRiC 219);" Energle ":INT(E+S) 

5990 GOTO 6030 

60O0 PRINTCHR*(219) »" Schlrne "(INTCS) 

6010 GOTO 6030 

6020 PRINTCHRtC 219) t" Kl Ingonen ";INTCK9) 

6030 NEXT 

6040 PRINT 02* 

6050 RETURN 

6060 ' WAS WUROE ZERSTOERT 

6070 ON Rl GOTO 6080. 6100. 6120. 6140. 6160. 6180, 6200, 6220 

6080 G2*-"Warp Triebwerh" 

6090 RETURN 

6100 G2*."Nahobta5ter" 

6110 RETURN 

6120 G21-"Fernabtoster" 

6130 RETURN 

6140 G2f-"Phaserkontrolle" 

6150 RETURN 

6160 G2*«"Photonenroehren" 

6170 RETURN 

6180 G2*»"Sehadenskontrolle" 

6190 RETURN 

6200 G2*-"Schli-nhontroUe" 
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62 lO RETURN 

6220 G2J-"Co»puter" 

6230 RETURN 

6240 ' ENERGIEVERBRRUCH 

6260 ' 

6260 E-E-N-10 

6270 IF E>-0 THEN RETURN 

6280 PRINT"2u» beenden des Maneuvers buss Schlre- anergic abg«2ogen w 

erden '" 

6290 S-S+E 

6300 E-0 

6310 IF S<-0 THEN S-0 

6320 RETURN 

6330 ' HLINGONEN FEUERN 

6340 IF K3<-0 THEN RETURN 

6350 IF OOOO THEN PRINT"Schl Ide der Sternenbasis schuetzten Enter 

prise") RETURN 

6360 FOR 1*1 TO 3 

6370 IF KCI, 3X-0 THEN 6510 

6380 H*INTCCHCI, 3J/SQRC CKC I , 1 ) -SI )R2+CKC I , 25 -S2)fl'2) )«C 2+RNDt 03 ) ] 

6330 S-S-K 

6400 KCI. 3D-KCI. 3)/( 3+RNDtOD ) 

6410 PRINT H:~ Elnhelten traren Enterprise voi " 

6420 PRINT"Sehtor"trUI, l)i*,";KCI. 2) 

6430 IF S<*0 THEN 4S90 

6440 PRINT"<Schllde aur"sS:" Etnhetten gesunken>" 

6450 IF H<20 THEN 6510 

6460 IF RN0C0)>.6 OR H/S<-.02 THEN 6510 

6470 R1-RN0C8] 

6480 D(R13-DCR1)-H/S-.5«RNDC0) 

6430 GOSUB 6060 

6500 PRINT"Schadens»eldung: ":G2«:" zerstoert" 

6510 NEXT 

6520 RETURN 

6530 ' SCHRDENSMELDUNG 

6540 IF DC6)>-0 THEN 6730 

6550 PRlNT"Schadensaeldung ausser Function" 

6560 IF 00-0 THEN 1830 

6570 03-0 

6580 FOR 1-1 TO 6 

6590 IF DCIXO THEN 03*03+ . 1 

6600 NEXT 

6610 IF 03*0 THEN 1830 

6620 PRINT 

6630 03*03+04 

6640 IF 03>-l THEN 03- . 9 

6650 PRINT"Techniher stehen berelt.ua die Schaeden zu beheben" 

6660 PRINT"Vorgesehene Zeit t"i .01«INTC 100*D3) ; " Sternentage" 
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6670 INPUT"Erl«ubSt Ou die Reperatur O/N) ";A* 

£690 IF fl*o-a" THEN 1830 

6690 FOR 1-1 TO 8 

6T00 IF DCIXO THEN OCIXO 

6710 NEXT 

6720 T-T+D3+.1 

6730 PRINT 

6740 PRINT 

6750 PRINT" Objekt Reparaturstadlun" 

6760 FOR RIO TO 8 

6770 GOSUB 6060 

6780 PRINT 62*: LEFT*CZ*. 30-LENCG2S) ) : [NTCDCRn*100)*.0» 

6790 NEXT Rl 

6800 PRINT 

6810 IF DOOO THEN 65T0 

6820 GOTO 1B30 

6830 ' PHOTONENTORPOATEN 

6340 ' 

6860 IF K3<-0 THEN PRINT"Kelne rUinsonerv In fteichwelte i"! GOTO 1830 

6860 IF K30 THEN XS»"zu«" ELSE X*.*'zu den" 

6870 PRINT"Von der Enterprise "sXts" Hllngonen" 

6880 H8"0 

6880 FOR 1*1 TO 3 

6300 IF MCI. 3X-0 THEN 7220 

6310 UlaKCI, 1) 

6920 X-KU. 2) 

6930 CI. SI 

6940 A-S2 

6950 GOTO 7010 

6960 PRINT"Entrernungsbest lamung:" 

6970 PRINT"Ou btst In Quadrant "»Q1 t" . "iQ2! PRINT" Sektoren": 

li".~iS2jPRINT" Gebe eln 

6980 ' 

6930 INPUT-flnfenaskoordinate CX.Y3 ";C1, A 

7000 INPUT" Endhoordinate CX.Y] ":W1. X 

7010 X-X-A 

7020 A-C1-UU 

7030 IF X<0 THEN 7130 

7040 IF rHO THEN 7160 

7050 IF X>0 THEN 7070 

7060 IF A-0 THEN Cl»5i GOTO 7080 

7070 CIO 

7080 IF ABSCAX-ABSCXJTHEN 7110 

7090 PRINT"Rlchtuna:"!Cl+CC t ABSC A J -ABSC X) )+flSSt A) J/RBSC A) ] 

7100 GOTO 7200 

7110 PRINT"Rlchtunas";Cl+t ABSC AJ/ABSt X) ) 

7120 GOTO 7200 

7130 IF A>0 THEN Cl»3: GOTO 7160 

7140 IF X<>0 THEN CI -5: GOTO 7080 
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7150 Cl-7 

7160 IF ABSCA)>«ABSCX)THEN 7130 

7170 PRINT"Richtunsi"tCl + CCC RBSCXJ-ABSCfil 5+RBSCX) )/"ABSCX) J 

7160 GOTO 7200 

7190 PRlNT"Rlchtung[:";Cl + C RBSCX^RBSCA) ) 

7200 PRINT"Oistanz ("sSQR(xB2+AA2) 

7210 IF H8-1 THEN 1830 

7220 NEXT 

7230 (SOTO 1830 

7240 ' KURS ZUR BASIS 

7260 IF B3<>0 THEN PRINT"Von der Enterprise zur Basis;"; W1-B4: X-B5: 

SOTO 6930 - , 

7260 PRINT"Mr.SpocVttDle Sensoren zeigen heine Basis" 

7270 QOTO 1830 

7280 * BUECHEREICOMPUTER 

T290 IF 0(8X0 THEN PRINT"Co«pUter it\aktiv >"• QOTO 1830 

7300 INPUT"Coaputer 1st berelt und wartet auf Elngabe ":ft 

7310 IF A<0 THEN 1830 

7320 PRINT 

7330 H8-1 

7340 ON fi+1 GOTO 74S0, 7730. 6830, 7240. 6960 

7350 PRINT 

7360 PRINT" Abrufbare Funhtlonon i" 

7370 PRINT" o-Karte aller Abtastur,aer>" 

7380 PRINT" 1 -St at US Report" 

7390 PRINT" 2-Photonentorpedodaten" 

7400 PRINT" 3-Entfernung zur Basis" 

7410 PRINT" 4-Ent fernunssberechnuns" 

7430 PRINT 

7440 GOTO 7300 

7450 PRINT 

7460 PRINT 

7470 PRINT'Coaputereurzelchnuna der Goloxis ":Q1 i ". ";Q2 

7480 PRINT 

7490 PRINT" 1234567 8" 

7500 01$-" "+STRING»C31.21TD 

7S10 PRINT 01» 

7520 FOR 1-1 TO 8 

7530 PRINT I; 

7540 IF H8-0 THEN 7590 

7550 FOR 3-1 TO 8 

7560 PRINT" K': 

7570 IF ZCI, 3)-0 THEN PRINTSTRINGtO. 127D ; : GOTO 7590 

7580 PRINT RIGHT*CSTR*CZC1, 3J+1000) . 3); 

7590 NEXT 

7600 PRINTCHRK225): 

7610 GOTO 7690 

7620 Z4-I 

7630 Z5-1 

7640 30- I NT ( 15- . SmLENC G2S) ) 

7650 PRINT TABCJO): G2»; 
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7660 Z5-5 

7670 30-INTC39-.5*LENCG2*)) 

7680 PRINT TABOO)* G2*» 

7690 PRINT 

7700 PRINT 01 » 

7710 NEXT 

7720 GOTO 1830 

7730 ' STATUS REPORT 

7740 PRINT 

7750 PRINT" Status Report:" 

7760 IF K9>1 THEN X$-"ert" ELSE X*-"" 

7770 PRINT"Noch":K9:~ mingon";Xsj" uebrig" 

T780 PRINT"Die Mission buss in"j . DflNTt CT9+to-T)*10) i" Sternentagen" 

7790 PRINT"beendet warden" 

7800 IF B9>1 OR 69-0 THEN X»-"bas«n" ELSE X*-"basls" 

7610 PRINT"Es gibt"jB9;** Sternen"jX» 

7820 QOTO 6530 

7830 ' GEWONNEN 

7840 PRINT 

78B0 PRINT 

7860 PRINT .-.,*»' i 

7870 PRINT" DU HAST RLLE KLINGONEN VERNICHTET" 

7680 PRINT"Dir gebuehrt dor Donk der gesaaten Mllchst rasse' " 

7890 PRINT"Dle Foederation ernennt Dich zu«" 

7900 PRINT" ADMIRAL" 

7910 PRINT"und gibt Olr das Konnando ueber dle":RNDC 105 i "Raumf lot te.da 

ait Du aucri welterriin Klin-gonen jagst >" 

7920 IF INKEV* -"'* THEN 7920 
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Run to Mor loch's Tower 

Rut den folgenden Selten rinden Sle das Listing elnes 

Abenteuersplels. bel dea Sle durch Verhandeln, Kaapfen. 

Forschen u.s.w. versuchen sol I en. das EndzieL (Eroberung des 

'rlorlock-Towers' ) zu erreichen. 

!■ Progreaal ist lng flnden Sie ab Prograaazel le 7150 die Spiel- 

anleltung. Seachten Sle, dap das eigentliche SplaL in Engliseh 

ablaurt - die wlehtlgen BegrlfFe warden grSPtentells in der 

Anleltung erklart. la schl laasten Fall attssen Sle halt no I 

ein Wdrterbuch zur Hand nehaen. 

FOr dieses Prograaa »up Ihr Colour-Genie ait 32K RAH ous- 

gertistet seln. 

Prograaal ist ing: 



10 C0L0UR16 

20 G0SU6 8160 

30 CLS 

40 PRINT 400,"BRAUCHEN SIE EINE ANLEITUNG C3/N) ">" ;CHR*( 14) i 

50 RS-INKEYS 

60 IFA1-"N" THEN 80 

70 I FA*. "J" THEN 60T0 7150ELSE GOTO 50 

80 CLEAR 132SPRINTCHRK15) 

90 DIM D»(9), 0*{17), DC32. 4). Ot 17. 6) 

100 CLS 

110 GOSUB 150 

120 G0SU8 8800 

130 GOSUB 7040 

140 GOTO 220 

150 DATA 7, 255 , 8. 16. 9. 16. 10. 16. 13. 16 

160 RESTORE 

170 FOR 1-1 TO 5 

180 READ XX, VV 

190 SOUNO XX. YV 

200 NEXT 

210 RETURN 

220 IF INKEY* «**" THEN GOTO 220 

230 CLS 

240 C- 17408 

250 0C17. l)-RNO(155)+100 

260 SP-RNDC6) 

270 ST-RNDC 10) 

2S0 CH-RN0C6) 

290 M-10 

300 PlC -6 

310 PL-880 

320 L-40 

330 BQ-223 

340 Sl»223 

350 D*-"«ant to" 

360 Wf- "which itea">" 

370 Et«'*don't have any>" 

380 H$-"how aany-J" 

390 M$-"don't have that »any<" 

400 V*»"you're wasting ay tlaei" 
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410 R*»"they attacked anyway'" 

420 DATA67 CASTLE. 82 RUIN. 39 CAVE. 84 TOWER. 107 CITY, 80 PILGRIMS, 87 WIZ 
ARDS.79 OGRES. 63 SOLDIERS 

430 DATASIEGE TOWERS, SMALL BOAT . GRAPPLING HOOKS, OIL LAMPS. FIXES, SHOVELS 
.ROPE. LEATHER OERKINS .CHAIN MAIL, PLATE ARMOR, SH I ELDS. BROAD SWORDS. LONG 
BOMS, CROSSBOWS. RAT IONS. LARGE KEY, GOLD COINS 
440 DATA 1500. 2500. ,160, 255, .IS. 30, ,5, 20. ,10, 30, .10, 20, ,15, 25,, 
15, 40. 2. 25. 60, 4, 50. 100. 8. 3, 20. 2. 10. 50. 5. 11, 50. 5. 18. 
40. 4. 4, 15. .1, 5, ..2$. 1, 
450 FOR I«l TO 9 
460 READ Dttl) 
470 NEXT 

480 FOR 1»1 TO 17 
490 READ OKI! 
500 NEXT 

510 FOR 1-1 TO 17 
520 FOR 0-2 TO 4 
530 READ OCI. 01 
540 NEXT 3. I 

5S0 DATA 67. 84, 89. 82, £7. 84, 99. 82, 67. 84. 99, 82, 67, 84, 99, 8 
2. 67, 94. 99, 82, 67, 94, 99, 82, 80, 80, 87, 79, 83, 83 
560 CLS 

570 PRINT • 216. "please wait" 
580 COLOUR 6 

590 PRINT « 256.STRINGSC11.21U 
600 COLOUR 16 
610 DC1. D-107 
620 D(2. 1)>107 
630 DC1, 2)»RN0C6) 
640 DC2. 2)-RN0C6)+8 
6S0 DC1. 3)-RNDC30)+l 
660 DC2. 3)-RNDC30)+l 
670 FOR 1-3 TO 32 
680 DC I. 41- 1 
680 READ DC I. 1) 
TOO DC I. 2)-RNDC141 
710 OCI. 3)-RNDC30)+l 
720 IF DC I, 23-8 THEN 700 
730 FOR 3-1 TO I 

740 IF OCI, 23-DC3. 23THEN IF OCI. 3)»DC3. 3DTHEN IF 3ol THEN 700 
750 NEXT 3, I 
760 FOR 1-8 TO 14 

770 IF RN0C10)>5 THEN OCI. D-RNDC8) 
780 NEXT 

790 0C15. t)-RNDC2S)+15 
800 A-RN0C7 3 
810 B-RN0C32) 
820 SL-RN0C384J+17S00 
830 GOSUB 6610 
840 N-C+B+AXL 

850 Fl-1 > • 

860 GOSUB 2150 
870 GOSUB 3580 
880 GOSUB 3360 
890 GOSUB 150 
900 EG-EG+1 
910 IF OF THEN 1030 
920 0-1 
930 Fl-1 
940 GOSUB 2150 
350 GOSUB 3580 
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360 IF TW<-rt«100 THEN 1030 

970 GOSUB 7020 

980 PRINT 6 PL, "earring to ■uchi"j 

330 QOSUB 6330 

100O GOSUB 2090 

1010 GOSUB 6610 

1020 GOTO 880 

1030 GOSUB T020 

10*0 COLOUR 2 

10S0 PRINT 9 PL, "what now SIRE'": 

1O60 COLOUR 16 

1070 ft*."IUNSEW" 

1080 GOSUB 1340 

1090 IF Q-0 THEN 1060 

1100 ON GOSUB 2090. 2660 

1110 IF Q-l OR Q-2 THEN GOSUB 6610 

1120 IF 0-5 RNO B<40 THEN B-B+l 

1130 IF 0-4 AND PI<1S THEN ft-A+1 

1140 IF 0-6 AND B>0 THEN B-B-l *" 

1150 IF 0.-3 AND fl>0 THEN ft.ft-1 

1160 IF Pl<>8 OR 0C2, 1)>0 THEN 1230 

1170 GOSUB 7020 

1180 PRINT • PL, "YOUR MEN CAN'T SWIM'": 

1190 GOSUB 6930 

1200 A-A-l 

1210 IF Q-3 THEN ft-ft+2 

1220 GOTO 9B0 

1230 F.F+1 

1240 P-0C1S, D-M/2 

1250 IF F<10 THEN 1300 

1260 F-0 

1270 0(15, 1)-P 

1280 IF P<M THEN GOSUB 7020: PRINT t PL. "FOOD L0Wi" t! QOSUB 6330: IF 0( 

15, 1X0 THEN 0(15, 1 3 »0 

1290 IF P<tV2 THEN P«RND(rV3): GOSUB 7020: PRINT t PL. P"ien died'";: 

M»M-P: GOSUB 6330 

1300 MC-MC+1 

1310 FOR 1-1 TO 32 

1320 IF FI-DCI, 2JTHEN IF B«OCI. 3JTHEN POKE N, Si! GOTO 3640 

1330 NEXT 

1340 POKE N. SI 

1350 N-C+RWL+B 

1360 IF PEEKCN3 131 THEN Sl-PEEHCN) 

1370 OF-0 

1380 SWF-0 

1390 MF-0 

1400 GOSUB 7020 

1410 PRINT t PL. "you are In the ": 

1420 B*-"wllderness" 

1430 IF ft»8 THEN 8*-"river" 

1440 IF B>18 THEN IF ft<8 THEN B»-"nount alhs": MF»1: F-F+.5 

1450 IF Sl-130 THEN B*-"swaap"t SWF-1 

1460 IF S1.135 THEN PRINT"ahadow or"i: GOSUB 6960: PRINT » PL. "the dre 

aded norloch's tower <"t GOSUB 6360: GOTO 3330 

1470 GOSUB 150 

1480 ' 

1490 FOR 3'0 TO 95 

1500 GOSUB 150 

1510 ' 

1520 FOR J-0 TO 140 

1530 GOSUB 150 
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1640 

1S50 PRINT BSi 

1560 POHE N. 131 

1570 GOSUB 6770 

1580 BT-0 

1590 FOR X.l TO 32 

1600 IF RBSCA-D(X. 2))>2 THEN 1710 

1610 IF ABSCB-OCX, 3)3 >2 THEN 1710 

1620 IF DCX. 4)-l THEN OCX. 43-0 

1630 FOR Y-l TO 9 

1640 IF VALCD*CY33oOCX. 13THEN 1700 

1650 IF Y>5 THEN BT«Y 

1660 GOSUB 7020 

1670 PRINT « PL. MID*CO$CYJ. 43 s" n«ar H i 

1680 GOSUB 6930 

1690 GOTO 1710 

1700 NEXT Y 

1T10 NEXT X 

1720 IF ft>12 THEN IF B>22 THEN GOSUB 7020: PRINT * PL, "CITADEL near"*! 

GOSUB 6330 
1730 IF SWF THEN IF RNO( 100X50 THEN GOSUB 7020: PRINT • PL . "2 men are 

Stuck In quicksand'";! M-M-2: OF-l! GOSUB 6930: GOTO 1750 
1740 IF MF AND Sl<>32 THEN IF RNO( 1003 <50 THEN GOSUB 7020: PRINT • PL. 
"2 ««n fell Into a deep ravine 1 "*: M-M-2: DF-ls GOSUB 6930 
1750 IF BT THEN 880 
1760 BC'BC+1 
1770 IF BC<3 THEN 880 
1780 BC-0 

1790 FOR 0-23 TO 32 

1800 IF DCJ. 43»0 THEN DC3, 43-1: POKE C+DCO. 33+OC3, Z3*L. BQ 
1910 X-RNOC153 
1820 Y-RN0C40) 
1830 IF X-8 THEN 1610 
1840 FOR ZZ-1 TO 32 

1850 IF X-DCZZ, 23THEN IF Y-OCZZ. 33THEN IF OoZZ THEN 1810 
1960 NEXT ZZ 
1870 0(3. 23 -X 
1880 DC 3. 33 -Y 
1890 NEXT 3 

1900 IF EX>0 THEN IF RNDC1003>80 THEN J-RN0C63+22: DO. 23-R: DO. 33- 
B: GOTO 1300 
1910 N-C+B+ASL 
1920 POKE N. 131 

30 GOTO 9B0 
1940 B*»INKEY* 
1950 Q-0 

1960 IF B*-"" THEN 1940 
1970 FOR 1-1 TO LENCAS3 

1980 IF B$-MIO*Cfl». I, 13THEN Q-Ii RETURN 
1990 NEXT 
2000 RETURN 
2010 R*-"" 
2020 Q-0 
2030 GOSUB 7020 
2040 Bf-INKEYi 

2050 IF B*<>"" THEN IF ASCCB*3"13 THEN Q-VALCA*3i RETURN 
2060 IF B*<> — THEN IF ASCCBS3-8 THEN 2010 
2070 IF B*<>"" THEN ftt-R»+B* : PRINT * PL. AS t 
2080 GOTO 2040 
2090 CLS: COLOUR 2 
2100 PRINT TABC11VINVENT0RY" 
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2110 PRINT 

2120 PR I NT" I TEM OUONT. WT. TOTAL" 

2130 FLO 
2140 ZL-0 
2150 WV-0 
2160 TW-0 
21T0 FOR I»l TO 17 
21B0 IF 0(1, 1)«0 THEN 2260 
2190 J-OCI, 11 
2200 K«OCI, 21 
2210 TW-TW+3*H 

2220 IF Fl-0 THEN QOSUB 25S0: ZL-ZL+lSlF ZL-T THEN SOSUB 6530! ZL-0 
2230 X-OCI, 43 
2210 IF 3>M THEN 3«M 
2250 UV-UV+3MX 
2260 NEXT 

2270 IF Fl THEN RETURN 
22B0 PRINT 
2290 PRINT 

2300 IF Q«3 THEN RETURN 

2310 COLOUR 2:PRINT"T0TRL WEIGHT" TW" LBS." 
2320 PRINT"your" M" nen con carry" 11*100 
2330 IF Z-5 THEN 6080 

2340 PRINT 9 PL, D»" drop anytMns?"! 
2350 FOR U'l TO 30 
2360 NEXT 
2370 A*-INKEYI 
2380 IF ft*-"" THEN 2370 
2390 IF A*o"Y" THEN Q>1: RETURN 
2400 GOSUB 7020 
2410 PRINT PL, Wt ; 
2420 QOSUB 6960 
2430 GOSUB 2010 
2440 IF Q>17 THEN 2400 
2450 I»Q 
2460 QT-OU. 1) 

2470 IF QT-0 THEN GOSUB 7020s PRINT * PL, E*;i GOSUB 6960{ GOTO 2340 
2480 GOSUB 7020 
2490 PRINT 9 PL, H»: 
2500 GOSUB 6960 
2510 QOSUB 2010 

2520 IF 0>0T THEN PRINT 9 PL. Hi!: GOSUB 6960s GOTO 2340 
2530 OCI, D-QT-Q 
2540 GOTO 2090 

2550 COLOUR 5:PRINT MIDICSTR* t I ) , 25" "i 
2560 IF K10 THEN PRINT" "» 

2570 PRINT OtCIDs TRBC18)Ji TfiBC 23)MID» tSTR* CK3 , 2)! TAB( 27)WI0»CSTR*C 
K«), 2) 
2580 RETURN 
2530 Z-0 
2600 BC>3 
2610 BT«0 
2620 B-B-l 

2630 IF RNDC10)>5 THEN B-B+2 
2640 N»C+B+fi»L 
2650 RETURN 
2660 CLS 
2670 Q-3 
2680 QOSUB 2120 
2680 GOSUB 7020 
700 PRINT » PL. W*t 
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2710 GOSUB 6960 

2720 GOSUB 2010 

2730 IF Q>17 THEN 2660 

2710 I -a 

2T50 P-0C1. 1) 

2760 IF P-0 THEN G0SU6 7020: PRINT 9 PL, Ei : : GOSUB 6960: GOTO 2820 

2770 IFCI»16 AND 2-130RCI-6 ANO Z-2J0RU-4 ANO Z«3J0R(I*3 AND Z-4)THEN 

2900 
2760 IF 1*7 AND DF«1 THEN 3320 
2790 GOSUB 7020 

2900 PRINT * PL, OS(I):" - no effect"! 
2810 GOSUB 6960 -~ -* 

2820 GOSUB 7020 

2830 PRINT PL . "something else'"; 
2810 GOSUB 6930 
2S50 Ai-INKEY* 
2860 IF A*-"" THEN 2850 
2870 IF A*-"Y" THEN 2660 
2880 GOSUB 6610 
2B90 RETURN 
2900 GOSUB 6610 
2910 GOSUB 7020 

2920 PRINT S PL, "you're in a "(MIO*C0*< Z) , 4); 
2930 GOSUB 6930 
2940 a-o 
2950 GOSUB 7020 

2960 PRINT t PL, "SEARCH or LEAVE''": ' 

2970 AS-INKEY* 
2980 IF fit'"" THEN 2970 
2990 IF A*-"S" THEN J-3+lO: GOTO 3020 
3000 GOSUB 2590 
3010 RETURN 
3020 SF-0 

3030 IF RNDtl00)>90 THEN SF-Z : SU-1: Z-9s GOTO 4110 

3040 IF RNO(lOO)>0 THEN PRINT 9 PL, "there's nothing here'";: GOSUB 693 
0: GOTO 2950 
3050 G0SU8 7020 

3060 PRINT « PL. "there la a CHEST here'"! 
3070 GOSUB 6930 

3080 IF RNOC1001>90 THEN 3260 

3090 IF DCAL. 4)»-l THEN GOSUB 7020: PRINT C PL. "It's empty!";: GOSUB 
6930: GOTO 3200 
3100 OCAL, 4)--l 
3110 GOSUB 7020 
3120 PRINT B PL. "containing": 
3130 IF 0C16. UOR RND(100)>20 THEN 3170 
3140 PRINT" a *':0*C16): 
3150 OC 16. 13-1 
3160 GOTO 3200 
3170 J-RNO(SOO)+S0 
3180 PRINT 3. OJt 17) ; 
3190 Otl7, 11-0U7, U+3 
3200 GOSUB 6960 
3210 GOSUB 7020 

3220 PRINT » PL, "Better leave now"; 
3230 GOSUB 6960 
3240 Q«0 
3250 GOTO 3000 
3260 3-RN0C2) 

3270 IF rt>20 THEN O-RND(S) 
3280 GOSUB 7020 
3290 PRINT t PL, "It's a TRAP" 3"men ore hilled"; 
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Jf 3300 M.M-J 

" 33 lO GOTO 3200 

3320 GOSUB 7020 

3330 IF RNOC 100X80 THEN PRINT t PL , "The rope broke-it's useless now"; 

i QOSUB 6960i 0C7. 1J-OC7, 1)-1« OF-0 ELSE PRINT 9 PL , "Vou saved the«i 

"t! GOSUB 69601 DF-0; rNrt+2 

3340 QOSUB 6610 

3350 RETURN 

3360 IF (DO THEN RETURN 

3370 PRINT « PL." FILL YOUR MEN ARE DEAD"" 

3380 ENO 

3390 IF TW<2400 THEN QOSUB 7020: PRINT t PL , "Vour arey is not strong e 

nough": : GOSUB 6990$ GOSUB 7020t PRINT * PL. "to ■ske succes llkstyi":: 
GOSUB 6990 

3400 IF 0(1, l)-0 THEN GOSUB 7020: PRINT S PL. "The walls ore to high": 

: GOSUB 6980: PRINT « PL, "for you to besiege the tower'"; i GOSUB 6990 

3410 GOSUB 7020 

3420 PRINT PL. Of; 
•^430 GOSUB 6930 

3440 PRINT t PL, "Attack or Leave'*'*; 

3450 AS-"LR" 

3460 GOSUB 1940 

34T0 IF Q-0 THEN 3450 

34Q0 IF U-2 THEN 3520 

3490 TF RNDC100)>70 THEN I-RN0C«/'10)rl-rl- 1 : PRINT « PL . "ft volley of arr 

ows'i: GOSUB 6930: GOSUB 7020: PRINT » PL.'Trom the tower has killed": 

: GOSUB 6990: GOSUB 7020: PRINT B PL. l"oT your nen'":: GOSUB 6990 

3600 ft-ft-1 

3510 GOTO 1300 

3520 Ffl-1 

3530 BM-RND(40)+160 

3540 IW«20 

3550 BW.2000 

3560 SU-0 

3570 GOTO 4S00 

3580 I-TW/M 

3590 FOR SP-1 TO 9 

3600 IF 10«SP>-I THEN 3620 

3610 NEXT 

3620 SP-10-SP 

3630 RETURN 

3640 RL-I 

3650 P-D(I. 1) 

3660 FOR Z-l TO 9 

3670 IF POVftLCOJCZl) THEN NEXT: GOTO 880 

36B0 SU«0 

3630 IF Z>5 THEN 4110 

3700 GOSUB 7020 

3710 PRINT » PL, "you have CO»e to a "|MI0»(0*(Z) . 43; 

3720 GOSUB 6930 

3730 ON Z GOTO 3740. 3790, 3850. 38B0, 3910 

3740 PRINT PL. "the way is barred by a stout"; 

3750 GOSUB 6960 

3760 PRINT i PL, "door with an iron lock* ■*» 

3770 GOSUB 6360 

3780 GOTO 880 

3790 PRINT » PL, "the entrance is filled with": 

3800 GOSUB 6960 

3810 GOSUB 7020 

3820 PRINT « PL. "drifted sand""; 
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3830 G0SU8 6360 
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3940 GOTO 880 
38S0 PRINT 9 PL. "it's to darh to seel": 
3860 GOSUB 6360 
3870 GOTO 880 

3880 PRINT 9 pl, "there is no visible entrance'"* 
3890 QOSUB 6960 
3900 GOTO 880 
3910 IF MC<6 THEN 1030 
3320 MC-0 

3330 FOR 1-1 TO 15 
3940 OC t . 53-0 

3950 IF RNDC100)>50 ORCI-1 AND fl>83THEN IF I< 15 THEN 4020 
3960 OCI, 5)»RN0C20) 
3970 V-Ot I, 3) 
3380 GOSUB 6590 
3330 OCI, 6).V 
(J1000 IF I- J THEN OCI, 5)-l 
4010 IF 1-16 THEN OCI, 5>-RNDC 1003+M 
4020 NEXT I 
4030 GOSUB 7020 

4040 PRINT • PL. "Leave, Buy at market , Inventory'*"* 
4050 RS-"LBm" 
4060 GOSUB 1940 
4070 IF Q-0 THEN 4030 

4080 IF Q-l THEN GOSUB 2590: GOSUB 6610: GOTO 880 
4090 IF Q.4 THEN 30SUB £090: GOTO 4030 
4100 GOTO 5360 
4110 QOSUB 150 
4120 ' 

4130 GOSUB 7120 
4140 ' 

4150 GOSUB 7020 

4160 PRINT 9 PL. "You have encountered a band of": 
41 TO GOSUB 6930 
4180 GOSUB 7020 

4190 PRINT 9 PL. MIDtCD*C2) , 4) » 
4200 GOSUB 6930 
4210 BM-RN0Cr1+M/4) + INTCeG/10) 
4220 BS-RN0C10) 
4230 8X-RN0CINTCEG/10)) 
4240 SB -FIND C 101 
4250 BI-BM 
4260 BX-INTCBX) 
4270 IF Z<8 THEN GOSUB 7020: PRINT 9 PL, "they have on ESCORTl";i GOSUB 

6930 
4280 IU'RN0C8)-10MCEX>2) 
4230 BU'BMXIU 
4300 GOSUB 7020 

4310 PRINT 9 PL. "There are" BM".": 

4320 IF IW<6 THEN PRINT" LIGHTLY"; ELSE IF I>5 AND IUU5 THEN PRINT" U 
ELL"; ELSE FRINT"HERVILY" | 
4330 PRINT" er»ed": 
4340 GOSUB 6930 
4360 IF SU THEN 4470 
4360 GOSUB 7020 
4370 PRINT 9 PL. Of* 
4360 GOSUB 6930 

4390 PRINT I PL. "M tech. Run or be Friendly"*"; 
4400 GOSUB 6330 
4410 fl*-"RRF" 
4420 GOSUB 1940 
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4430 ON Q GOTO 4450. 4860. 5020 

4440 GOTO 4360 

4450 SU--1 

4460 IF RN0C100)>.50 THEN SINO: GOTO 4500 

44T0 GOSUB 7020 

4480 B*«"they" 

4490 IF SU-1 THEN B*-"you"i PRINT 9 PL. B»" were surprised"!! GOSUB 6 

930 

4500 Fl-1 

4510 GOSUB 2X50 

4520 BW-BHMIW 

4530 CLS 

4540 PRINT TABC12)"You"tTABC22)"The*" 

4550 PRINT"Men" TRBC123M: TABC22)BM 

4560 PRINT"Weopons"sTABC123WVi TAB(22)BU 

4570 PRINT"Experlence"sTABC12)EXt TABC22)BX 

4580 PRINT 9 400. "LUCK": 

4590 GOSUB 150 

4600 ' 

4610 I-RNOCIOO: 

4620 3-RNDC1003 

4630 PRINT « 415. I" " 3s 

4640 A*-INKEY* 

4650 IF f\%-"" THEN 4590 

4660 I»I-SU«10 

4670 0-3+SUK1O 

4680 TW«WV+I+ST*5+EX*S 

4690 IF FA THEN IF OC 1 , 1) «0 THEN TW-TW/5 

4700 WT-BW+J+SB«2+BX*2 

4710 M-M+INTCCWT>TW)#RNDCM/10) + CTW>WT)*( RNDCrt/20) -1 ) ) 

4720 BM»BM+INTCCTW>Um«RNDCBU/10) + CWT>TW)*C RNOCBM/20) - 1)) 

4730 IF BM<0 THEN BM^O 

4740 GOSUB 3360 

4750 PRINT 

4760 PRINT"Survivors":TABC123rl; TABC22)BM 

4770 IF Brl-0 THEN 5240 

4780 IF 8M<BI/4 AND RNDC100)>50 RND FA-0 THEN 5050 

4790 PRINT 

4800 PRINT"Fight. Run or Terms?" 

4810 ft*-"FRT" 

4820 GOSUB 1940 

4830 IF Q-0 THEN 4790 

4840 IF fl-2 THEN 4860 

4850 IF Q-3 THEN 4920 ELSE 4500 

4860 IF SB>B OR RN0tl00)>90 OR Ffl-1 THEN GOSUB 7020s PRINT « PL . "You 

got away I";: GOSUB 6930: Ffl«0 : GOTO 5150 

4870 GOSUB 7020 

4860 PRINT 9 PL . "They caught you!"s 

4690 GOSUB 6930 

4900 SUM 

4910 GOTO 4470 

4920 I-WTKRNDC100) 

4930 0-TWXRNOC 10)*CH 

4940 GOSUB 6930 

4950 IF 0>I AND FA-0 THEN 5000 

4960 PRINT 9 PL. R$J 

4870 GOSUB 6930 

4980 SU-1 

4990 GOTO 4470 

5000 BM-RNDCBH) 

5010 GOTO 5050 

5020 GOSUB 7020 
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5030 IF RN0C10)>CH THEN PRINT 9 PL. R» ; : G0SU9 6960t SOI: SOTO 4170 

5040 BM-RNDCBM) 

50S0 PRINT « PL. BM"wlll join you'"! 

5060 GOSUB 6930 

5070 M-n+BM 

5080 PRINT 

5^90 PRINT"They haves" 

5100 PRINT 

S110 FOR 1-8 TO 15 

5120 IF RNDC100)>50 THEN QT-RNDCBM) : 0(1, 15-0(1. 1 ) +QT : PRINT QT ; 0*C 

I) 

5130 NEXT 

5140 IF RND(100)>90 THEN PRINT"Too bad they had no SOLD"" ELSE QT-INTt 

RNDCSJSCCEQ/lOJ + nxBM) : 0C17. 1)-0(17. D+OT! PRINT QTs 0*( 17) 

5150 EX-EX+1 

5160 PRINT 

5170 PRINT 

5180 PRINT I PL."REfiDY TO GO ON-»"s 

5190 ft*- "ft" 

5200 GOSUB 1940 

5210 IF SF THEN Z-SF: GOTO 2900 

5220 GOSUB 6610 

5230 GOTO 1780 

5240 IF FA THEN 6820 

5250 FOR 3-1 TO 2 

5260 GOSUB 150 

5270 ' 

5280 GOSUB T120 

5290 ' 

5300 GOSUB 7120 

5310 NEXT 

5320 PRINT-YOU WON I 

5330 BM-2 

5340 PRINVYou nonaged to salvage:" 

5350 GOTO 5110 

5360 HC-0 

5370 OC-0 

5380 ZL-0 

5390 CUS 

5400 VF-1 

5410 PR INT" I TEH PRICE WT . QUANT." 

5420 PRINT 

5430 FOR 1-1 TO 15 t COLOUR 3 

5440 IF 0(1. 5).0 THEN 5500 

5450 PRINT MIOSCSTRSU). 2)" "{ 

5460 IF K10 THEN PRINT" "i 

5470 PRINT 0*CI)t TABCIBJOCI. 6) s TAB(23)0(I, 2> : TABC27J0C I , 5) 

5480 ZL-ZL+1 

5490 IF ZL-7 THEN GOSUB 6480 J IF ZL-99 THEN 5510 

5500 NEXT I 

5510 HB-0 

5520 Fl-1 

5530 GOSUB 2150 

5540 PRINT"You have" 0(17. l)*'Gold Coins" 

5550 PRINT"Your men are carrying" TWMbs" 

5560 GOSUB 7020 

5570 PRINT • PL. W*t 

5580 GOSUB 6960 

5590 GOSUB 2010 

6600 IF 0>17 THEN 5560 

5610 V-OCQ. 6) 
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5620 0L-3+RNDC4)-CS»CV>150>3 

5630 GOSUB 6590 

5640 X»Q 

5650 GOSUB 7020 

5660 IF OCX, 5)-0 THEN PRINT I PL. E*;: GOSUB 6960: GOTO 4030 

5670 GOSUB 7020 

5680 PRINT S PL, "Your ofrer''"j 

5690 GOSUB 6960 

5700 QOSUB 2010 

5710 0-INTCO) 

6720 GOSUB 7020 

5730 IF Q>-V THEN V-flt GOTO 5930 

5740 IF P,ND(30)-1S THEN V-0: GOTO 5930 

5750 IF RNDC20)M2 THEN OL-OL+10 

5760 IF RNDC100J-74 THEN V«V*2 

5770 IF 0<V/3 THEN PRINT » PL , "not Interested'":: GOTO 6050 

5780 IF Q-HB THEN HC-HC+1 

5790 IF 0<KB ORCQ-HB AND HC-2ITHEN 6030 

5900 HB-Q 

5810 PRINT i PL. "Tetl you what I '■ going to do--"! 

5920 G0SU8 6330 

5830 ZZ«INTCV»CCRN0C15)+5)*.0in 

5840 IF Z2<1 THEN ZZ-1 

5850 V-V-ZZ 

5860 IF V<HB THEN V-HB 

5870 IF Q>-V THEN V-Qi GOTO 5930 

5880 GOSUB 7020 

5890 IF RNDC100)>50 THEN PRINT » PL. "For you I*U »ahe It" VW": ELS 

E PRINT PL, "What do you say to" v—>"t 

5900 flf-INKEY* 

5910 IF ft*-"" THEN 5900 

5920 IF MO'T THEN OOOC + ltIF OC<OL THEN 5670 ELSE 6030 

5930 GOSUB 7020 

5940 PRINT I PL, H«! 

5950 GOSUB 6960 

5960 G0SU8 2010 

5370 IF Q>0CX. 5)THEN PRINT B PL. M* ; : GOSUB 6360: GOTO 5930 

5980 IF Q*V>0C17. DTHEN GOSUB 7020: PRINT 5 PL. "not enough GOLD I " ; : G 

OSUB 6960: GOTO 5930 

5390 OCX. 1)-0(X. 1)+Q 

6000 0(17, 13-OC17. 1)-0*V 

6010 OCX. 5J-0CX, 5)-Q 

6020 GOTO 4030 

6030 GOSUB 7020 

6040 PRINT « PL, Y»: 

6050 GOSUB 6360 

6060 OCX, 6I-INTC0CX, 6)/4J+0CX, 6) 

6070 GOTO 4030 

6080 PRINT « PL. D»" sell anything''": 

6090 A*-1NHEY* 

6100 IF fl*-"" THEN 6080 

6110 IF ft$<>"Y" THEN RETURN 

6120 GOSUB 7020 

6130 PRINT » PL. W»: 

6140 GOSUB 6960 

6150 GOSUB 2010 

6160 IF Q>17 THEN 6120 

6170 I-Q 

6190 IF 0(1. l)-0 THEN PRINT t PL, El:: GOSUB 6960: GOTO 6080 

6190 V-INTCOCI. 3)/( RN0C3J+2)) 

6200 OL-5+RNDC5)-10+CV>80) 

6210 HB'OCI. 3> + l 
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6220 HC-0 

6230 IF RN0C100)>50 THEN PRINT t PL. "I'll slve you" V"0K?" j ELSE PRINT 

t PL, "Will you take" V"?"j 
6240 fl»-INKEV* 
6250 IF At-"" THEN 6240 
6260 IF A1-"Y" THEN 6400 
6270 GOSUB 7020 

6280 PRINT t PL. "How «uch do you wont'»"j 
6290 GOSUB 6960 
6300 GOSUB 2010 
6310 J-Q 

6320 IF J-HB THEN HC-HC+1 ELSE HC-0 
6330 IF 3<-V THEN 6400 

6340 IF 3>HB 0RC3-HB AND HC«2)0R 0L*0 THEN PRINT C PL. V*j! GOSUB 6960 
: RETURN 
6350 HB-3 

6360 ZZ-INTCV«t RN0C20)+10)« .01 > 
6370 IF ZZ<1 THEN ZZ-1 
6380 V-V+ZZ 
6390 IF VO THEN 6230 
6400 GOSUB 7020 
6410 PRINT « PL. H%; 
6420 GOSUB 6960 
6430 GOSUB 2010 

6440 IF Q>0(I. DTHEN PRINT • PL. M*s: GOSUB 6960) GOTO 6400 
6450 0(17, 13-0(17. 1)+V*Q 
6460 OC I. D-OCI. 1)-Q 
6470 RETURN 
6480 0-0 

6490 GOTO 6580 PRINT"press <RETURN> to continue, or" 
6500 PR I NT" < SPACE > to buy!" 
6510 PRINT 
6520 GOTO 6550 
6530 RETURN 

6540 PRINT"press <RETURN> to continue" 
6550 A*-INKEY* 
6560 IF A*-"" THEN 6550 
6570 IF FISC ( ft« ) "32 THEN ZL-99 
6580 RETURN 
6590 V-V-RNDC (V/4)) 
"6600 RETURN 
6610 CLS 

6620 FOR 1-0 TO 10 
6630 FOR 3-0 TO 3 

6640 IF RN0C10)>5 THEN POKE SL+I+3»L. 130 : POKE SL+I+3*L-21504. 6 
6650 NEXT J, I 
6660 FOR 1-0 TO 38 STEP 2 
6670 POKE 17726+1. 132 : POKE 1-3776, B 
6680 POKE 17729+1. 133 : POKE 1-3775, B 
6690 NEXT 

6700 FOR 1-1 TO 21 STEP 2 
6710 FOR 3-0 TO 6 

6720 IF RN0C10)>6 THEN POKE 17426+I+OHL. 128! POKE 17427-M+J*L , 129: P 
OKE I+J*L-4078,15 : POHE I+3KL-4077 , 15 
6730 NEXT 3. I 

6740 POKE 17999. 134; POKE-3505.10 
6750 POKE 18000, 135: P0KE-3S04. 10 ' 
6760 POKE 18001, 136: POHE-3503,10 
6770 POKE C+B+A*L, 131 
6780 FOR X-l TO 32 
6790 IF DCX, 4X1 THEN POKE C+DCX. 2)»L+DCX. 31, OCX, 1) : POKE C+DCX, 
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2>«L+DCX. 35-21504. 2 

6800 NEXT 

6810 RETURN 

6820 CLS 

6830 FOR 1-1 TO 5 

6840 GOSUB 150 

6850 SOUND 4,69 

6860 GOSUB 7120 

6870 GOSUB 150 

6880 SOUND 4.176 

6880 QOSUB 7120 

6900 NEXT 

6910 C0L0UR5; PRINT t 400," YOU'VE CONQ.UEREO THE"tPRINT" 

FORCES" I PRINT" OF THE EVIL > " t PRINT" ALL HAIL THE VICTOR! '!" 

6920 QOTO 6820 

6830 FOR WT-1 TO 300 

6940 NEXT 

6350 RETURN 

6960 FOR WT-0 TO 600 

6970 NEXT 

6980 RETURN 

6990 FOR WT-1 TO 1000 

7000 NEXT 

7010 RETURN 

7020 PRINT S PL. STRIN6tC32. 32) i 

7030 RETURN 

7040 PRINT 9 409. "RUN TO MORLOCK'S TOWER"; 

7050 COLOUR 16 

7060 PRINT t 454, "The ultimate"; 

7070 PRINT S 493, "Adventure Gaae"; 

7080 COLOUR 9 

7090 PRINT « 850. "Press <RETURN> to play"; 

T100 COLOUR 16 

7110 RETURN 

7120 FOR WT-1 TO 25 

7130 NEXT 

7140 RETURN 

7150 CLS 

7160 COLOUR 5 

7170 PRINT"EINLEITUNGs" 

7180 COLOUR 16 

7190 PRINT"IN DIESErt ADVENTURESPIEL SINO SIE DER FUEHRER EINER RAUBR 

ITTERBANOE UNO STRE I FEN OURCHS LAND. UM SICH GELO. WAFFEN UN 

D NEUE SOLOATEN ZU BESCHAFFEN. Utt SCHLIESSLICH IN DEN < MORLOCK'S " 

7200 PRINT"TOWER > EINZUDRINGEN. DORT MUESSEN SIE OANN QEGEN DIE KRAE 

FTE DES BOESEN KAEMPFEN UNO DIESE BESIESEN, UM SELBST MERR UEBE 

R DAS LAND ZU WERDEN. DAS SPIELIST IN ENGLISCHER SPRACHE GESCHRIEBEN, " 

7210 PRINT"DA DIESE KUERZER UNO PRREZISER ALS DIE DEUTSCHE 1ST." 

7220 PRINT"WENN MAN DEM SPIEL AUFMERKSAM FOLGT, WERDEN WOHL HEINE P 

ROBLEME AUFTRETEN." 

7230 PRINT 

7240 COLOUR 9 

7250 PRINT"<RETURN>" 

7260 COLOUR 5 

7270 AS'INHEYS 

7280 IF A*-"" THEN 7270 

7290 GOTO T300 

7300 CLS 

7310 PRINT"LANDKARTEi" 

7320 COLOUR 16 

7330 PRINT"DIE LANDHARTE 1ST WAEHREND DER ME I STEN ZEIT SICHTBAR. SIE 

ZEIGT AN. WO SICK OERSPIELER. MIT DEM HLEINEN MAENNCHEN SYMBOLISI 
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ERT, GERADE BEFINOET UND WO DIE VERSCHIEDENEN INTERESSANTEN PUNHTE 

7340 PRINT"LOHALISIERT S1ND. MAN KANN DIE SPIEL- FIGUR MIT DEN TASTE 

N FUER DIE VIER HIrtMELSRICHTUNGEN, ALSO ": 

7350 COLOUR 3 

7360 PRlNT"N"i 

7370 COLOUR 16 

7380 PRINT")ORTH,"s 

7390 COLOUR 3 

7400 PR1NT"S": 

7410 COLOUR 16 

7420 PRINT")OUTH. "j 

7430 COLOUR 3 

7440 PRINT" W"« 

7450 COLOUR 16 

7460 PRINT")EST UND "; 

7470 COLOUR 3 

7460 PRINT"E"( 

7490 COLOUR 16 

7500 PR1NT"JAST BEWEGEN" 

7510 PRINT"FOLGENDE 0B3EKTE WERDEN OARGESTELLTi DA 1ST ZUM EINEN EI 

NE GEWELLTE LINIE. DIE SICH QUER DURCH DIE KARTE ERSTRECKT. SIE STELL 

T EINEN FLUSS DAR, DER NUR MITTELS EINES BOOTES DURCHOUERT WERDEN 

KANN. DIE GEPUNKTETEN FLAECHEN " 
7520 PRINT"STELLEN EINEN SUMPF DAR CSWAMP). IN OEM IHRE SOLOATEN EINSI 
NHEN KOENNEN, DIE DANN NUR MITTELS EINES SEILS {ROPE) QERETTET 
WERDEN KOENNEN. IM NORDOEST-" 

7530 PRINT"LICHEN TEIL DES GEBIETES BEFINOET SICH EIN GEBIRGE. DAS TE 
ILWEISE HIT STILI SIERTEN BERGEN ANGEDEUTET 1ST." 
7540 COLOUR 9 
7550 PRINT" <RETURN>" 
7560 COLOUR 16 
7570 A*-1NHEYS 
75B0 IF A*."" THEN 7570 
7590 CLS 

7600 PR1NT"GANZ IM SUEOOSTEN 1ST EINE BURGANLAGE SICHTBAR. DORT 1ST" 
7610 COLOUR 3 

7620 PRINT"<MORLOCK*S TOWER>"i 
7630 COLOUR 16 

7640 PRINT". DAS ENOZIEL IHRES ABENTEUERS. AUF DER KARTE SIND AUSSERDE 
M ZHEI 'h's. OIESE BEZEICHNEN DEN STAND-" 
7650 PRINT"ORT VON STAEDTEN. WO SIE VERSCHIEDENE " 

7660 PRINT"OING£ EINKAUFEN MOENNEN. BEIM OURCH- WANDERN DER LANOSCH 
AFT ERSCHEINEN IN IHRER NAEHE MANCHMAL NOCH ANDERE ZEICHEN. 
DIESE HABEN DIE SYMBOL IH:~ 

7670 PRINT"C • CASLTLE (BURG) c - CAVE CHQEHLE 00 

ER HAVERNE) R • RUIN CRUINE) T - TOWER 

CTURM) S - SOLDIERS (SOLOATEN) 

- OGRES CORGS) 
7630 PRINVP • PILGRIMS CPILGER) W • WIZZARDS (GELEH 

RTE) 

7690 COLOUR 9 
7700 PRINT 
7710 PRINT 
7720 PRINT 
7730 PR I NT" < RETURN >" 
7740 COLOUR 5 
7760 At-INKEY$ 
7760 IF Ai-"" THEN 7750 
7770 CLS 

7780 PRINT"STAOTBESUCHs" 

7790 COLOUR 16 
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7800 PRINT"BR1NQT MAN SEINE FISOR MIT EINER STADT (CITV) DECKUNGSGLEI 
CH. OANN KANN MAN DORT AUF DEN MARKTPLATZ SEHEN. DAS ANGE-BOT 1ST N 
ICHT IMMER VOLLSTAENDIG, UND MAN SOLLTE AUF DIE ARTIKEL ACHTEN. " 
7810 PRINT"MAN BRAUCHT STEIQEISEN (GRABBLING H0OKS)UM IN EINEN TURM EI 
NDRIN6EN ZU KOENNEN, GENAUSO W1E OELLAMPEN (OILLAMPS) UM IN HOEHLEN E 
INZUORINQEN. EIN BOOT WAERE NOETIG UM DEN FLOSS ZU UEBERQUEREN. UM 

IN EINE RUINE EINZUDRINGEN SIND " 
7820 PRINT"SCHRUFELN (SHOVELS) NOETIB UNO IN EINE BURG KOMMT URN NUR 
MIT EINEM GROSSEN SCHLUESSEL , DEN MAN ABER NUR IM SCHRTZ EINES TUR 
US, EINER RUINE ODER EINER HOEHLE FINOEN KANN. AUCH 1ST ES S1NNV0L 
LNAHRUNGSPAHETE (RATIONS) ZU KAUFEN. " 
7830 PRINT"UM DIE MANNSCKAFT SATT ZU HALTEN. DIE PREISE KANN MAN 

MIT IMAGINAEREN HAENOLER AUSHRNDELN. INDEM MAN SICH AN DEM GEFOR 
OERTEN PRE IS ORIENTIERT." 
7840 COLOUR 8 
7850 PR INT" < RETURN >" 
7860 COLOUR 16 
7870 Af-INKEY* 
7880 IF A»-"" THEN 7870 
7830 CLS 
7900 COLOUR 5 
7910 PRINT-INVENTORY:" 
7320 COLOUR 16 

7830 PR1NT"DAS INVENTORY 1ST EINE UEBERSICHT UEBEft ALLE SACHEN, DIE MA 
N BESITZT. SOUIIE DIE ANZAHL DER EIGENEN SOLDATEN UND DEREN TRAGKRAFT 
. WAEHLT MAN DAS INVENTORY IN" 

T940 PRINT"DET R WILDNIS, SO KANN MAN UEBER ES ARTIKEL WEGWERFEN 
. WAS NOETIG WIRO, WENNOIE SOLOATEN DIE GESAMTE LADUNG NICHT MEHR TR 
AGEN KOENNEN." 
7950 COLOUR 5 
7960 PRINT"EINDRINGENS" 
7970 COLOUR 16 

7980 PRINT"WILL MAN IN EINE BURG. EINEN TURM. EINE RUINE ODER IN EINE 
HOEHLE EINDRINGEN. SOMUSS MAN SEINE FIGUR OAZU DECKUNGSGLEICHBRINGEN U 
NO 'U' FUER 'USE' BENUTZEN DRUECKEN. OANN WIRD DAS INVENTORY AUF- 

GELISTET "j 
7990 PRINT"UND NACH DEN ZU BENUTZENDEN ARTIKEL GEFRAGT. 1ST DIESER 
RICHTIG, SO UIRD DIE KARTE GEZEICHNET UND MAN WIRD GEFRAGT, OB M 
AN SUCHEN ODER ODER DEN ORT VERLASSEN WILL. NACH ERFOLG- RE I CHER 
SUCHE MANN MAN ENTWEDER EINEN SCHATZ (CHEST) "; 
8000 PRINT"BZW. FEINLICHE SOLDATEN FINDEN" 
8010 COLOUR 9 
8020 PRINT"<RETURN>" 
8030 COLOUR 5 
B040 A*-INKEY* 
8050 IF A*-"" THEN 8040 
8060 CLS 

8070 PRINT"HAMPF:" 
8090 COLOUR 16 

8090 PRINT"MAN KANN MIT SOLOATEN ODER DER ESKORTE VON PILGERN ODER GE 
LEHRTEN KAEMPFEN. BEGEGNET MAN SOLCHEN GIBT DER RECHNER DIE ANZAH 
L UND DIE KAMPFSTAERKE (LIGHT. WELL ODER HEAVY) DER GEGNER AN. MAN " 
8100 PRINT-HAT OANN DIE WAHL MIT IHNEN ZU KAEMPFEN (ATTACK BZW. FIGHT) 
. WEGZULAUFEN(RUN) OOER SICH MIT INHEN ANZUFREUNDEN (FRIENDLY 
. BZW TERMS). DER KAMPF 1ST 8E-ENDET. WENN SIE OOER DER GEGNER VER- 

NICHTET SIND. SIE GEFLUECHTET SIND " 
8110 PRINT"ODER FEINOE ZU IHNEN UEBERGELAUFEN SIND.". 
8120 PRINT"<RETURN>" 
8130 AJ-INKEYJ 
8140 IF A*-"" THEN 8130 
8150 GOTO 80 



39 



Pet 6o 


POME 


-3071, 


32 


6170 


POKE 


-3070, 


112 


8180 


POKE 


-3069, 


83 


8190 


POKE 


-3068. 


122 


8200 


POKE 


-3067, 


255 


8210 


POKE 


-3066. 


203 


8220 


POKE 


-3065, 


254 


8230 


POKE 


-3064. 


64 


8240 


POKE 


-3063. 


224 


82S0 


POHE 


-3062, 


248 


8260 


POKE 


-3061, 


184 


8270 


POKE 


-3060, 


212 


8280 


POKE 


-3059. 


222 


8230 


POKE 


-3058. 


187 


8300 


POKE 


-3067. 


255 


8310 


POKE 


-3056. 


9 


8320 


POKE 


-3055. 


72 


B330 


POKE 


-3063, 


81 


8340 


POKE 


-3052, 


4 


8350 


POKE 


-3051, 


73 


8360 


POKE 


-3049, 


41 


8370 


POKE 


-3048, 


60 


8380 


POKE 


-3047, 


188 


8390 


POKE 


-3046, 


152 


8400 


POKE 


-3045, 


255 


8410 


POKE 


-3044. 


61 


8420 


POKE 


-3043. 


37 


8430 


POKE 


-3042, 


36 


8440 


POKE 


-3041, 


36 


8450 


POKE 


-3038, 


128 


8460 


POKE 


-3037. 


193 


8470 


POKE 


-3036, 


227 


8480 


POKE 


-3035. 


127 


8490 


POKE 


-3034 , 


62 


8500 


POKE 


-3033. 


28 


8510 


POKE 


-3031. 


60 


8520 


POKE 


-3030. 


126 


8530 


POKE 


-3029. 


255 


8540 


POKE 


-3028. 


195 


8550 


POKE 


-3027. 


129 


8S60 


POKE 


-3023. 


146 


8570 


POKE 


-3022, 


254 


8580 


POKE 


-3021. 


254 


8590 


POKE 


-3020, 


84 


8600 


POKE 


-3019, 


127 


8610 


POKE 


-3018. 


93 


8620 


POKE 


-3017. 


95 


8630 


POKE 


-3016. 


18 


8640 


POKE 


-3016. 


31 


8650 


POKE 


-3014, 


31 


8660 


POKE 


-3013, 


31 


8670 


POKE 


-3012, 


30 


8680 


POKE 


-3011. 


255 


8690 


POKE 


-3010, 


171 


8700 


POKE 


-3009, 


255 


8710 


POKE 


-3008. 


73 


8720 


POKE 


-3007. 


255 


8730 


POKE 


-3006, 


255 


8740 


POKE 


-3005, 


255 


8750 


POKE 


-3004. 


103 


8760 


POKE 


-3003. 


255 


8770 


POKE 


-3002. 


249 
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8780 POME -3001 , 249 

8790 RETURN 

8900 COLOUR 14 

8910 PRINTCHR1C205) I STRING* (38, 202) :CHR*(224) : 

8820 FOR W»l TO 21 

8830 PRINTCHR*(202) JSTRINGJC38, 32) jCHR*C202) ; 

8940 NEXT 

8850 PRINTCHRS<229) » STRING* (39. 202) jCKRK 226 

8860 COLOUR 15 

8870 RETURN 



y 
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ess 

QenSren Sle aucn zu den Leu ten, die meinen, man mUsse fUr 
seinen Computer mogllchst vlele sinnvolle Rnwendungen f indent 
Nun Mer 1st elnet Unser Colour-Genie-Programm "Bar" I 
ftus fast 60 verschledenen Or inhs-Rezepten sucht das Progromm 
sicher einen Drink neraus, dor Ihnen schmeeht . Dabei kann man 
alle Rezepte ausgeben. bestiamte Drinks nach ihrem Namen 
suchen. Oder ats Clou eine Llste der verfugbaren Zutaten 
eingeben, worauThin das Colour-Genie alle Rezepte ausgibt, 
die mit den eingegebenen Zutaten gemlxt werden konnen. 

Noch zwel Hlnweise zu* Elntlppen: 

- Wir haben das Program* mit 40 Zeichen pro Zeile gelistet. 
dan It Sle mit der Bl Idsehirmrormat ierung Vtelne Schwlerig- 
keiten haben. 

- Lassen Sie slch nicht schon belm Elntlppen zum Probieren 
der Rezepte verleiten. sonst rishieren Sie u.U. etlichc 
Tippf ehler . 

(FUr dieses Program* mu0 lhr Colour-Genie 32K RAM haben.) 

Programml istlng: 



10 POKE 16553. 255 

20 CLEAR 600 

30 DEF1NT I , 

40 0EFSTR D, N, M, R, V, X. S. L 

50 DIM RC113. MCU). VC50) . LCS05 

60 ON ERROR GOTO 2860 

70 CLS 

80 FOR 1-1 TO 239 

90 COLOUR RN0C16) 

100 PRINT"BRR "% 

110 NEXT 

120 PRINT"BRR"i 

130 FOR LI TO 500 

140 NEXT I 

150 COLOUR 2 

160 CLS 

170 PRINT ■ 405. "DRINKS. DRINKS AND MORE 

DRINKS >" 

180 FOR t-1 TO 800 

190 NEXT I 

200 CLS 

210 COLOUR 2 

220 PRINT B 5, "*»«---■»** DRINKS **«---. 

»■*" 

230 PRINT 

240 COLOUR 5 

250 PRINT"WOLLEN SIE" 

260 COLOUR 5 
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270 PRINT 

280 PRINT-1) ftUFLISTUNG ALLER VORHANDENE 

N REZEPTE" 

290 PRINT"2) UISSEN WAS SIE MIT IHREN ZU 

TftTEN MIXEN KOENNEN" 

300 PRINT"3> ORS REZEPT FUER EINEN GANZ 

BESTIMMTEN DRINK 

310 COLOUR 2 

320 PRINT 

330 PRINT"FUER OIE RUECKKEHR ZU DIESER L 

ISTE BITTE "i 

340 COLOUR 3 

350 PRINT"'R' ": 

360 COLOUR 2 

370 PRINT"ORUECKEN> 

390 D«INKEYS 

390 IF D""" THEN 3B0 

400 ID-VALCD) 

410 ON ID GOTO 420. 660. 1740 

420 COLOUR 7 

430 PRINT 

440 PRINT"ZUM RNHRLTEN DER RUFLISTUNQ BI 

TTE 'SHIFT t, t'GLEICHZEITIG DRUECH 

EN" 

450 FOR 1-1 TO 200 

460 NEXT 

470 RESTORE 

480 REAO N 

490 PRINT 

500 COLOUR 16 

510 PRINT STRINGK40, 2173: 

520 PRINT N 

530 COLOUR 5 

E40 FOR 1-1 TO 400 

550 NEXT 

560 REftO (1 

570 PRINT 

580 PRINT M 

590 PRINT 

600 1-0 

610 RE-INKEY* 

620 IF RE-"R" THEN RE-"**tQOTO 200 

630 COLOUR 3 

640 REftD MCI) ■ R( I ) 

650 IF LEFTt(RCI). n-"«" THENs N-R<I)S 

GOTO 490 

660 PRINT MCI) . R( I ) 

670 QOTO 630 

680 PRINT 

630 COLOUR 14 

700 PRINT"BITTE TIPPEN SIE JEWEILS J C -0 

ft) FUER 3E0E ZUTRT EIN, DIE SIE VORRftE 

TIQ HftBEN.ANOERNFALLS 'N* EINTIPPEVl." 

710 FOR 1-0 TO 50 

720 V(I)-"N" 

730 NEXT I 

740 1-0 
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750 LC0)-"ZUCKER" 

760 LC1)-"ZITR0NE" 

770 LC 2) -"ORANGE" 

780 LI 3) -"ANANAS" 

790 LC4) -"GRAPEFRUIT" 

600 LC42)-"KIRSCHE" 

810 LC5)-"STAUBZUCKEA" 

820 LC6) -"ANGOSTURA" 

830 LCT) -"GRENADINE" 

B40 LC8)»"WERMUT" 

850 LC9)-"GIN" 

860 LC10)-"RUH~ 

870 LCI 1) -"WHISKY" 

880 LC1£)-"SEKT" 

890 LC13)-"CURACA0" 

900 LC 14) -"GRAND MARNIER" 

910 LC 15) -"COINTREAU" 

320 LC 16) -"APRICOT BRANDY" 

930 LC 17 >• "CHERRY BRANDY" 

940 LC18)-"PRINZEN HIRSCH" 

9S0 LCI 9) -"MARASCHINO" 

960 LC20)-"BANANENLIK0ER" 

970 LC21)-"K0KOSNUSSCREME" 

980 LC22)-"PFEFFERMINZLIH0ER" 

990 LC23)-"CREME DE KAKAO" 

1000 LC24)-"KAFFE£LIK0ER" 

1010 LC25) -"CALVADOS" 

1020 LC 26) -"CORDIAL MEDOC" 

1030 LC 27) -"SOUTHERN COMFORT" 

1040 LC29)-"W0DKA" 

1050 LC29)-"C0GNAC" 

1060 LC 30) -"BRANDY" 

1070 LC 31) -"PORT" 

1080 LC 32) -"SHERRY" 

1090 LC33)-"R0TWEIN" 

1100 LC 34) -"TONIC WASSER" 

1110 LC35) -"GINGER ALE" 

1120 LC 36) -"ROSES LIME 3UICE" 

1130 LC3T)-"TRINKSCH0K0LA0E" 

1140 LC38)-"M0CCA" 

1150 LC39)-"EI" 

1160 LC40)-"ZITRONENSORBET" 

1170 LC41)-"VANILLE EIS" 

1180 LC42)-"TE0UILA" 

1190 LC43)-"CASSIS" 

1200 L( 44) -"BENEDICTINE" 

1210 LC45)-"CAMPARI" 

1220 PRINT 

1230 FOR 3-0 TO 45 

1240 COLOUR C 3 AND l)+2 

1250 PRINT LCO) : 

1260 PRINT TABC20): CHRSC 14) s 

1270 X-INKEY* 

1280 IF X-"" THEN 1270 

1290 IF X-"3" THEN V(I)-LC3): I-I+l 

1300 PRINT X 
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1310 


NEXT 


1320 


PRINT CHRi(15) I 


1330 


PRINT 


1340 


PRINT"SUCHE BEQINNT - BITTE MARTEN" 


1350 


RESTORE 


1360 


READ N 


1370 


REM) M 


1360 


1-0 


1390 


READ MCI). RCI) 


1400 


IF LEFTMRCI). 1 ] -"*" THEN: Nfl^RC 1 


! RCI)-"": SOTO 1430 


1410 


I-I + l 


1420 


SOTO 1390 


1430 


1-0 


1440 


3-0 


1450 


RE^INKEY* 


1460 


IF RE-"R" THEN! RE-""! SOTO 200 


1470 


IF LEFTS(RCI), LENCVC0)n-VC3)THEN 


1550 




1480 


JO+1 


1490 


IF VCJ)o"N" THEN 1470 


1500 


FOR I«0 TO 11 


1510 


RCI)-"" 


1520 


NEXT I 


1530 


N«NA 


1540 


GOTO 1370 


1550 


I-I + l 


1560 


IF RCI)<>"" THEN 1440 


1ST0 


PRINT 


1580 


COLOUR 16 


1590 


PRINT STRINQSC40. 217) 


1600 


COLOUR 5 


1610 


PRINT N 


1620 


PRINT 


1630 


COLOUR 2 


1640 


PRINT M 


1650 


PRINT 


1660 


1-0 


1670 


COLOUR 3 


1680 


PRINT MCI) . RCI) 


1690 


1-1 + 1 


1700 


IF RCI )<>"" THEN 1670 


1710 


FOR 1-1 TO 999 



1720 NEXT I 

1730 GOTO 1500 

1740 PRINT 

1750 INPUT"WELCHEN ORINK SUCHEN SIE"(S 

1760 IF RIGHTSCS. 1)-" " THEN: S-LEFTSCS 

, LENCS)-l)t SOTO 1760 

17T0 S-"* " +S 

1790 RESTORE 

1790 FOR 1-1 TO LENC5) 

1900 IF MIDKS, I. 1)-" " THEN IF MIDSCS 

, 1 + 1. 1)-" " THEN: S-LEFT*CS, D+RIGHT* 

(S. LENCS)-I-l)i SOTO 1790 
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leio NEXT 

1820 PRINT S 

1830 READ 

1810 RE-INKEY* 

1850 IF RE-"R" THENs RE-"": 40 

1860 IF LEFTJCD. LENCS)X>S THEN 1830 

18T0 N-0 

1890 PRINT 

1890 PRINT N 

1900 1-0 

1810 READ M 

1920 PRINT 

1930 COLOUR 16 

1940 PRINT STR1NG»<40.217) 

1850 PRINT M 

1960 PRINT 

1970 READ fit n , RCI) 

1980 IF LEFTtCRCIJ. 1)-"*" THEN 2040 

1990 COLOURS 

2000 PRINT M(I3, 

2010 C0L0UR2 

2020 PRINT Rtl) 

2030 GOTO 1870 

2040 RE-INKEY* 

20&0 IF BEO'fl" THENi RE-"": GOTO 2040 E 

LSE 200 

2060 OATA« RAUHREIF-COCKTAIL. SHAKER MIT 
EIS - ZUTATEN - GOT SCHUETTELN 

UNO IN EIN COCKTAIL- GLAS MIT ZUCKER 

RANO SEIHEN, 1/3, GIN, 1/3. CURACAO TRIP 

LE SEC. 1/3. ZITRONENSAFT. 1 SPRITZER. R 

UM 

2070 DATA 0,» LONG LUCAS. MIXBECHER MIT 

EIS - ZUTATEN - MIT SEKT AUFFUELLEN - 1 
ORANGEN - SCHEIBE EINLEGEN - MIT 
ZITRONENSCHEIBE GARNIEREN. 1/2. GIN, 1/ 

2. CURACAO ORANGE. SAFT 1. ORANGE, 1/2, 

ZITRONE 

2080 DATA 0.* INFERNO. IN EINER SEKTSCHA 

LE ZUTATEN MIT ZITRONENSCHALE ABSPRITZEN 
- DAMN MIT EINEM SCHUSS FRISCKEM 

RANGENSAFT UND SEKT AUFFUELLEN - EISS 

TUECHE BEIGE8EN, 1/3, GIN, 2/3, CURACAO 

ORANGE, . ORANGENSAFT. . SEKT 

2090 DATA 0.« GIN FIZZ. IM SHAKER MIT KL 

E1NGEST0SSENEM EIS ZUTATEN KRAEFTIG 
SCHUETTELN IN EIN GLASGEBEN UND MIT SO 

DA AUFSPRITZEN. 2/3. GIN. 1/3, ZITRONENS 

AFT. 1 TL. STAUBZUCKER 

2100 DATA 0.» SILVER MOON, ZUTATEN MIT E 

IS MIXEN UNO EINER HALBEN SCHEIBE ORANG 

E GARNIEREN, 1/3, GIN. 1/3, APRICOT BRAN 

DY. 1/3, ORANGENSAFT 

2110 DATA 0,» MARTINI ORY. ZUTATEN MIT E 

ISWUERFELN IM MIXBECHER BUTVERRUEHREN: 

URCHSEIHEN - IM COCKTAILGLAS 

MIT OLIVE SERVIEREN - NACH WUNSCH MIT ZI 
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TRONENSCHALE ABSPRITZEN. 2 DASH. ORANGE- 

BITTER. 1/2. WERMUT DRV. 1/2, GIN 

2120 DATA 0,* WHITE LADY. SHAKER MIT EIS 

- ZUTATEN - GUT SCHUETTELN UNO 
IN EIN COCKTAIL- GLAS SEIHEN. 3 

/6. GIN. 2/6. CURACAO TRIPLE SEC, 1/6. Z 
ITRONENSAFT 

2130 DATA 0,* LUCAS' LEMON SPECIAL, ZUTA 
TEN MIT 2 EL GESTOSSENEM EIS INS LONG 
DRINKGLAS - MIT MtNEAALWASSER AUFF 
UELLEN. 1 GLAS. ZITRONE. 1 GLAS. GIN, 2 
GLAESER, GRAPEFRUIT-SAFT. 1. KIRSCHE 
2140 DATA 0,* ADRIA LOOK, ZUTATEN IM MIX 
BECHER HURZ SCHUETTELN! INEINE SEKTSCHAL 
E GIESSEN UND MIT SEKT AUFFUELLEN, 2 CL . 

GIN. 2 CL. CURACAO. 2 TL . ZITRONENDSAFT 

(NATUR3, . SEKT ZUM AUFFUELLEN 
2150 OATA O.* GIN TONIC, ZUTATEN AUF EIS 

GEBEN UND MIT TONIC AUFGIESSEN. 1 G 
LAS. GIN. 1 SCHEIBE, ZITRONE. . TONIC WA 
SSER ZUM AUFFUELLEN 

2160 OATA 0,» MOON DRIVER. ZUTATEN MIT E 
IS MIXEN- IN SEHTSCHALE GEBEN- MIT SE 
KT AUFFUELLEN GARNIERUNG 1 MARASCHINO- 
KIRSCHE + 1 SCHEIBE ZITRONE. 3 CL. SIN. 
2 CL, PAINZEN HIRSCH, I CL , WERMUT, . SE 
KT ZUM AUFFUELLEN 
2170 OATA 0,» BOLS FROST, IM TUMBLER EIS 

MIT ZUTATEN VORBEREITEN- MIT TONIC AUFF 
UELLEN GARNIERUNG SCHEIBE ZITRON 
E- ORANGE- KIRSCHE. 4 CL . GIN. 2 CL . CUR 
ACAO. 2 CL. ZITRONENSAFT. , TONIC UIASSER 

ZUM AUFFUELLEN 
2180 OATA 0,* SILVER TOP. ZUTATEN IM MIX 
BECHER MIXEN- MIT SEKT IN SEHTSCHALE AUF 
FUELLEN GARNIERUNG SCHEIBE ORANGE 
- KIRSCHE. 1/3, CURACAO TRIPLE SEC, 1/3. 

GIN. 1/6. GRENADINE, 1/6, ORANGENSAFT. 
. SEKT ZUM AUFFUELLEN 
21S0 DATA 0.* BOLS TOP SLING. ZUTATEN IN 

MIXBECHER - 2-3 STUECHE EIS IN TUMBLER 
; UMRUEHREN UNO MIT TONIC AUFFUELLEN 
, 4 CL, GIN, 1/2 CL, GRENADINE, 1/2 CL . 
CURACAO. A DASH, ANGOSTURA. 2. KIRSCHEN. 

1/2 SCHEIBE, ORANGE 
2200 DATA 1/2 SCHEIBE, ZITRONE, . TONIC 
WASSER 

2210 DATA 0.* HONOLULU COOLER, ZUTATEN M 
IXEN IN AUSGEHOEHLTER ANANAS SERVIEREN 
, 1/3, ANANASSAFT. 1/3. ROSES LIME JUICE 
, 1/3, SOUTHERN COMFORT 
2220 DATA 0,» PINA COLADA. ZUTATEN MIXEN 

- VERSCHIEDENE RUMSORTEN -UNO IN KOKOSN 
USS SERVIEREN. 1/4 L, ANANASSAFT. 
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2 EL, KOKOSNUSSCREME. 1 SCHUSS. COINTREA 
U, VIEL. RUM 

2230 DATA 0,» MAI-TAI, ZUTATEN KRAEFTIQ 
SCHUETTELN - GARNIERUNGZITRONENSCHEIBE + 
KIRSCHE, 1/2. ZITRONENSAFT, 1/2, RO 
SES LIME JUICE. 1 SCHUSS. CURACAO WEISS, 

2 CL, RUM WEISS, 2 CL . RUM BRAUN 
2240 DATA 0.« PLANTER'S PUNCH. ZUTATEN I 
N EINEM HOHEN 6LRS MIXEN UNO RVIEREN, 
1/3. ORANGENSAFT. 1/3, ZITRONENSAFT. 1/3 
, ANANASSAFT. 1 DASH, GRENADINE, 2 CL, R 
UM WEISS, 2 CL, RUM BRAUN 
2250 OATA 0,» MINT-FRAPPE. HOHES GLRS ZU 
R HAELFTE MIT GESTOSSENEM EIS FUELLEN - 

LIHOER DARUEBER LRUFEN LASSEN - MIT 
SODAWASSER AUFFUELLEN GARNIERUN3 FR 
ISCHE MINZE, BELIEBIG, PFEFFERMINZLIKOER 
2260 OATA 0,* PUSSY- FOOT. EIS + ZUTRTEN 
MIXEN - MIT FRUECHTEN GARNIEREN. 1/3 
. ANANASSAFT. 1/3. ORANGENSAFT. 1/3. GRA 
PE FRUITS AFT 

2270 DATA 0,» SUMMERW1ND. ZUTATEN + 3 EI 
SWUERFEL MIXEN - MIT BITTER GRAPEFR 
UIT AUFFUELLLEN. 1 TL . ZITRONENSAFT. 2 G 
LAESER. WOOKA. . BITTER GRAPEFRUIT 
2280 DATA 0.» BANANA DAIQUIRI. IM ELEKTR 
ISCHEN MIXER EIS + EINE HALBE BANANE MI 
T ZUTATEN MIXEN - BIS EIS ZU SCHNEE WI 
RD - IM TUMBLER SERVIEREN. 2 CL. BANANEN 
LIHOER, 4 CL, RUM BRAUN. 1 DASH. ZITRON 
E 

2290 DATA 0.* CREOLE, IM SHAKER ZUTRTEN 
+ EIS + TRINHSCHOKOLAOE MI 

XEN MIT SCHOKOLADEN- STREUSEL SERVIEREN 
, 2 CL, CREME DE KAKAO, 4 CL , RUM BRAUN 
. BELIEBIG, TRINKSCHOKOLADE 
2300 DATA 0,» BRAS1L. ZUTATEN + EIS IN E 
ISBECHER GEBEN - UMRUEHREN - SERVIE 
REN, B CL, MOCCA STARK. 1 EL, ZUCKER 
BRAUN. 4 CL. RUM 

2310 DATA 0.« ZOMBIE. ZUTATEN IN LOGORIN 
KGLAS GEBEN + FRUECHTE +EIS VOR 

SICHTIG UM- RUEHREN MIT ZIMTSTANGE SER 
V1EREN, 2 CL. HAFFEEL IKOER, 4 CL . RUM B 
RAUN 

2320 OATA 0,» PRAIRIE OYSTER. NACHEINAND 
ER IN EIN COCKTAILGLAS GEBEN, 1 TL , WORC 
ESTERSAUCE. 2 TL . KETCHUP. TROPFEN, OEL , 

TROPFEN, ESSIG. 1, EIGELB, , SALZ, . PF 
EFFER. . CURRY, , TABASCO, . PAPRIKA, . 
MUSKATNUSS 

2330 OATA 0.* PORTWEIN COBBLER, HOHES GL 
AS ZU 2/3 MIT GESTOSSENEM EIS FUELLEN 
- ZUTATEN - MIT SOOAUASSER AUFFUELLEN 

MIT FRUECHTEN GRRNIEREN, 2 TE1LE. PORT, 
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I TEIL, GRAND MARNIER. 1 TEIL. MARASCHI 
NO. 1 TL. ZUCKERSIRUP 

2340 DATA 0,« SHERRY-COBBLER, COBBLER GL 
AS ZU 1/3 MIT FEINEH EIS FUELLEN - 
ZUTATEN - MIT SODR-WRSSER AUFFUELLEN - 
DURCHRUEHREN, 2/3, SHERRY FINO, 1/3, CO 
GNAC. 2 SCHUSS. PORT 

2350 DATA 0.* RUM CRUSTA , ZUTATEN + 5 ST 
UECKE EIS IN SHAKER - 1/2 MINUTE KRAEFTI 
G SCHUETTELN - IN GLAS MIT ZUCKE 

RKRUSTE SEIHEN, SAFT 1/2, ZITRONE , 2 EL, 

ZUCKERSIRUP. 2 OASH . ANGOSTURA. 3 DASH. 

MARASCHINO, 1 GLAS, RUM 
2360 DATA 0,* BRANDY COOLER, ZUTATEN + E 
IS IN SHAKER - MIXEN - ANSCHLIESSE 
ND IN WHISHY-BECHER SEIHEN UND MIT GIN 
GERALE AUFFUELLEN, 1 TL . ZUCKER, SAFT 1/ 
Z, ZITRONE. 1/2 GLAS, BRANDY, , GINGER A 
LE 

2370 OATA 0.» GIN COOLER. WIE BRANDY COO 
LER - OEDOCH GIN STATT BRANDY, , 
2380 OATA 0,» EYEBRIGHT COOLER. GROSSER 
UHISKYBECHER - ZUTATEN + 3 STUECH 
E EIS - HIT GINGER ALE AUFFUELL 

EN - MIT KIRSCHEN UND ANANRS SERVIERE 
N, SAFT 1/2. ZITRONE. 1/2 GLAS. CALVADOS 
, t/2 GLAS. CORDIAL ME DOC , . GINGER ALE 
2330 DATA 0.* CABLEGRAM COOLER. GROSSER 
WHISKYBECHER - ZUTATEN + 3 STUECH 
E EIS - MIT GINGER ALE AUFFUELL 

EN - UMRUEHREN - MIT ZWE I KIRSCHEN 

SERVIEREN, SAFT 1/2, ZITRONE, 1 EL, GRE 
NADINE, 1/2 GLAS, WHISKY. . GINGER ALE 
2100 OATA 0,* LOVER'S DREAM, ZUTATEN IM 
MIXBECHER MIT GABEL DURCHSCHLAG 

EN - MIT GINGER ALE AUFFUELLEN 

- MIT KIRSCHE UNO STROHHALM SERVIEREN. 
1. EI. 1 EL. ZUCKER 

2010 DATA SAFT 1/2, ZITRONE, , GINGER AL 
E 

2420 DATA 0,« CHAMPAGNER DAISY, ZUTATEN I 
N ZU 1/3 MIT EIS GEFUELLTEN MIXBECHER GE 
BEN- 1/2 MINUTE LANG MIXEN - INSEKTSCHAL 
E MIT SEKT AUFFUELLEN - MIT 2 KIRSCHE 
N UNO 2 STUECKEN ANANAS SERVIEREN 
,SAFT 1/4, ZITRONE,! TL, GRENADINE 
2430 DATA 1/2 GLAS , BRANDY. ,SEKT 
2440 DATA 0.* BRANDY DAISY, WIE CHAMPAGN 
ER DAISY - JEOOCH MIT 1 STATT 1/2 GL 
AS BRANDY - MIT SODA AUFFUELLEN. 

2460 DATA 0,* GIN DAISY, WIE CHAMPAGNER 
DAISY - 3E00CH GIN STATT BRANDY, SAFT 1/ 
4, ZITRONE. 1 TL. GRENADINE. 1/2 GLAS. G 
IN 
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2460 DATA 0.» RUM DAISY, W1E CHAMPAQNER 

DAISY - JEDOCH RUM STATT BRANDY, SAFT 1/ 

4, 2ITR0NE, 1 TL, GRENADINE, 1/2 GLAS , R 

UM 

2470 DATA 0.* WHISKY DAISY, WIE CHAMPAGN 

ER DAISY - OEDOCH WHISKY STATT BRANDY 

. SAFT 1/4. ZITRONE, 1 TL , GRENADINE, 1/ 

2 GLAS, WHISKY 

2480 DATA 0,* ASCOT OAISY, MIXBECHER ZU 

1/3 MIT CIS FUELLEN - ZUTATEN - SCH 

UETTELN UND IN SEKTSCHALE 6EBEN - MIT S 

KIRSCHEN GARNIEREN - SODAHINZUFUEGEN. 
2 TL. CHERRY BRANDY. SAFT 1/4, ZITRONE, 
2 TL. WHISKY. 2 EL. GIN 

2490 DATA 0,* MANHATTAN, MIXEN - MIT KIR 
SCHE GARNIEREN, I DASH, ANGOSTURA. 2/3. 
WHISKY, 1/3. WERMUT ROT 



MIXEN. 
WERMUT 



MIXEN, 



2500 DATA O,* BRONX 
4. WERMUT ROT. 1/4 

ORANGENSAFT 
2510 DATA 0,* INDIA 
SCHINO, 1/3. 6RAPEFRUITSAFT 
2S20 DATA 0.* MADAME, MIXEN 
ENSPIRALE UND KIRSCHE GARNIEREN, 1 DASH. 

ANGOSTURA, 2 SCHUSS. WERMUT. 4 CL. GIN 
.* MOONLIGHT, MIXEN. 1 DASH. 
1 DASH, CURACAO, 1/3, WERMU 



1/4, GIN. 1/ 
WEISS, 1/4, 

1 DASH, MARA 

2/3, GIN 
- MIT ZITRON 



LAS 

1 TL, ZUCKER. 



2530 DATA 0, 

ORANGENSAFT. 

T, 2/3, GIN 

2540 DATA 0,# PARADIES. MIXEN, 1/3, GIN. 

1/3. APRICOT BRANDY, 1/3, ORANGENSAFT 
2550 DATA 0.* EXPRESS, MIXEN, 1/3, GIN, 
1/3, APRICOT BRANDY. 1/3, WERMUT 
2560 DATA 0,* BAMBOO, MIXEN - MIT 1 STUE 
CK ZITRONENSCHALE SERVIEREN. 2 DASH. 

ANGOSTURA, 1/2. SHERRY. 1/2, WERMUT 
2570 DATA 0,« KIR ROYAL. ZUCKER IN SEKTG 
ZUTATEN DER REIHE NACH BEIGEBEN, 
1 DASH. ANGOSTURA, 2 CL. C 
OGNAC. , SEMT ZUM AUFFUELLEN 
2580 DATA 0.* OHIO, MIT KALTEM SEKT AUFF 
UELLEN - KIRSCHE EINLEGEN, 1 DASH, ANGOS 
TURA. 1/3, WHISKY, 1/3, WERMUT ROT. 1/3 
, CURACAO 

2S90 DATA 0,» TOM COLLINS. 4 EISWUERFEL 
IN LONGDRINHGLAS - ZUTATEN - MIXEN - MIT 

SODA AUFFUELLEN, SAFT 1. ZITRONE, 

2 TL. ZUCKER, 2 CL . GIN 

2600 DATA 0,» WHISKY FIX, GLAS ZU 1/3 MI 
T EIS FUELLEN - ZUTATEN - UMRUEHREN - ZI 
TRONEN- SCHEIBE UND STROHHALM BEIG 
EBEN. 2 EL. ZUCHERSIRUP, SAFT 1, ZITRONE 
, 1 CL. CURACAO ORANGE. 2 CL , WHISKY SC 
OTCH 

2610 DATA 0,* PRINCE OF WALES, HOHES GLA 

S - 4 EISWUERFEL - ZUTATEN - UMRUEHREN 

UND MIT SEKT AUFFUELLEN - GARNIERUN 

3 1 SCHEIBE ORANGE. 1/2 GLAS, CURACAO. 
2 DASH. ANGOSTURA 
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2620 DATA O,* SALTY OOG. GLAS ZUR HAELFT 

E MIT EtS FUELLEN - ZUTATEN + 1 PRI 

SE SALZ - UMRUEHREN -MIT STROHHALM S 

ERVIEREN, 2 CL . WODKA. 4 CL. GRAPEFRUITS 

AFT 

2630 DATA 0.* PINK CARTER PICK ME UP. SE 

KTSCHALE - 2 EISWUERFEL + ZUTATEN - MIT 

ZITRONENSCHALE ABSPRITZEN, 3 DASH 

. ANGOSTURA. 1/4 GLAS. GRENAOINE. 1/4 GL 

AS. ZITRONENSAFT. 1/2 GLAS. GIN. , SEKT 

ZUM AUFFUELLEN 

2640 DATA 0,* WODKA FIZZ. ZUTATEN MIT EI 

S GUT SCHUETTELN - IN GLRSSEIHEN - MIT S 

ODA AUF- FUELLEN. 1/4. WODKA. 3/4. ANANA 

SSAFT 

2650 DATA 0.« BLOODY MARY, ZUTATEN MIT E 

IS SCHUETTELN. , TOMATENSAFTGUT GEKUEHLT 

, 2 CL. WODKA, 1 DASH. WORCESTER-SAUCE. 

. PFEFFER. , SALZ, , PAPRIKA. 1 DASH. ZI 

TRONENSAFT 

2660 DATA 0,* SCREW DRIVER. UJOOKA IN EIN 

GLAS MIT EIS GEBEN - MIT SAFT AUFFUEL 
LEN - SCHUETTELN, 2 CL. WODKA, , 

ORANGENSAFT ZUM AUFFUELLEN 
2670 DATA 0,« MOSCOW MULE. ZUTATEN + EIS 

INS GLAS - MIT GINGER AUF-FUELLEN. 4 CL 
. WODKA, . GINGER ALE ZUM AUFFUELLEN. 1. 

ZITRONENSCHEIBE 
2680 DATA 0.* GIMLET, ZUTATEN IM SHAKER 
MIT EIS SCHUETTELN, 1/3. ROSES LIME JUIC 
E. 2/3. WODKA 
2690 DATA 0,*ANGOSTURA SCORPION, MIT EIS 

MIXEN, 2 EL. ZUCKERSIRUP, 2 EL. ROSES L 
IME JUICE. 1 DASH. ANGOSTURA. 3 EL. RUM 
2700 DATA 0.* RUM PUNCH, ZUSAMMENGEBEN - 

BITTER 1 GINGER ALE ALS LETZTES, 1 TASS 
E. ZITRONENSAFT, 2 TASSEN, ERDBEERS IRUP , 

3 TASSEN. RUM WEISS (JAMAICA) . 2 TASS 
EN. ANANASSAFT. 1 TASSE. GRAPEFRUITSAFT . 

1 TASSE. GINGER ALE. DASHES. ANGOSTURA 
2710 DATA 0,« INCIDENT, SORBET + ZUTATEN 

IN SCHMALES GLAS GEBEN. t EL, ZITRONENS 
ORBET. 4 CL, RUM BRAUN EISKALT. 4 CL. 
ROTWEIN 

2720 DATA 0,» WHITE WITCH, ZUTATEN SCHAU 
MIG MIXEN, 1/4, KAKAO RUM LIKOER. 1/4, R 
UM. 1/2. VANILLE EIS 

2730 DATA 0,* MORGAN'S REVENGE. MIT EIS 
MIXEN - MIT SODA AUFFUELLEN, 1/4. RUM. 1 
/2, ANANASSAFT, 1/4. ORANGENLIKOER BITT 
ER 

2740 DATA 0,» PEACH'S SPECIAL, EIS + ZUT 
ATEN IM SHAKER MIXEN - MIT KIRSCHE S 
ERVIEREN. t DASH. ANGOSTURA. 1/3. CHERRY 
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BRANDY. 1/3. WERMUT WEISS, 1/3, GIN 
2750 DATA 0,* ACAPULCO, 4 ZERKLEINERTE E 
ISWUERFEL IN GLAS - MIT SODA AUFFUELLEN, 

1 TL, ZUCKERSIRUP. 5 CL . TEQUILA, £.5 C 
L. CASSIS, 1, ZITRONENSCHEIBE. , SODA 2U 
M AUFFUELLEN 

2760 DATA 0,* TEQUILA CALIENTE, ZUTATEN 
MIXEN It 3 EISWUERFEL MIXEN - MITSODA AUF 
FUELLEN, 4 CL , TEQUILA, 1 CL , CASSIS, 1 
CL. ROSES LIME 3UICE. 2 OASHES. GRENADIN 
E, 5-10 CL, SODA 

2770 DATA 0,» THE BLACKEST RUSSIAN. ZUTA 
TEN IN QLAS GEBEN - VORSICHTIG 3 EISWUER 
FEL ZUGEBEN, 2.5 CL . KAFFEEL IKOER. 7.5 C 
L. WODKA 
2760 DATA 0.* WERMUT CASSIS. ZUTATEN k 3 

EISWUERFEL IN GLAS GEBEN - MIT SODA AU 
FFUELLEN, 8 CL , WERMUT TROCKEN, 3.5 CL , 

CASSIS 
2790 DATA 0.« WHISKY COCKTAIL. ZUTATEN k 

3 EISWUERFEL IM SHAKER MIXEN, 5 CL ■ WHI 
SKY. 2 DASHES. ANGUSTURA, I TL . ZUCKERSI 
RUP, 1, KIRSCHE 

2800 DATA 0,« ZUBROWHAT INI , ZUTATEN lc 3 
EISWUERFEL IM SHAKER MIXEN. 4 CL , UOOKA, 

6 CL. PFEFFERMINZL IKOER WEISS. 4 CL, Z 
ITRONENSAFT, 1, KIRSCHE GRUEN 
2810 DATA 0,« ADONIS, ZUTATEN fc 3 EISWUE 
RFEL VERRUEHREN. 1.5 CL. WERMUT ROT. 3 
CL, SHERRY. 1 DASH. ANGOSTURA 
2820 DATA 0.» HONEYMOON. 3 EISWUERFEL J. 
ZUTATEN IM SHAKER MIXEN, 3 DASHES. CURAC 
AO ORANGE, 1 CL, ORANGENSAFT. 1.5 CL . BE 
NEDICTINE, 2.5 CL , CALVADOS 
2830 DATA 0,« RED SHADOW, 3 EISWUERFEL 1 

ZUTATEN IM SHAKER MIXEN, 3 OASHES, ANGO 
STURA, 1 CL, APRICOT BRANDY. 1 CL . CHERR 
Y BRANDY, 3 CL . WHISKY 

2840 OATA 0,» TAKE TWO, 3 EISWUERFEL 1> 2 
UTATEN MIXEN. 2.S CL . GIN. 1.5 CL , COINT 
REAU, 1 CL. CAMPARI 

2850 DATA 0,* ROLLS ROYCE . ZUTATEN IN GE 
GEBENER REIHENFOLQE IN EIN GLAS GEBEN - 
UMRUEHREN. 2-3. EISWUERFEL, 2.5 CL. GIN, 

l.S CL. WERMUT DRY, 1 CL , WERMUT WE IS 
S, 1-2 OASHES. BENEDICTINE. 1, KIRSCHE 
2860 FOR 1-1 TO 300 
28T0 NEXT I 
2680 RESUME 200 
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Ein Haschlncnsprache-Honltor In BASIC 

Dieses Prograaa staaat aus dea 'Colour-Genie-Buch 1'. Es wird 
in diesea Buch nochaals gellstet, da der Monitor u« Rout inert 
zua Dlsketten-Sektor tesen und schreiben erweitert wurde. Fur 
genaue Erklarungen des Monitors schlagen Sie bitte la 'Colour- 
Qenie-Buch 1' nach, die Erklarung der Olsket tenrout inen rinden 
ein peer Saltan welter. 
Nun noch elne Erklilrung der einzetnen Monl tor-Koaaandoss 

1 . Hex-Ouap 
Eingabet Hadreaae 

Ab der elngegebenen Adresse wird der Speicherinhal t tn hexa- 
deziaal gellstet. Jewells noch Ausgabe einer Zeile wird die 
Tastatur auf folgende Tasten abgerragtt 
<CLEAR> - Listing abbrechen. 

<Leertaste> - Listing anhalten. bis <RETURN> gedrtickt wird. 
Die einzelnen Zellen haben folgendes Foraat : 
Die ersten 4 Zelchen geben die Adresse an. in der das erste 
der B Bytes, die in dleser Zeile gellstet warden. steM. 
Oann folgen die 8 Bytes und zua Schlu0. etwas abgesetzt, 
folgt die sogenannte Checksum. Dieses Byte 1st das niedei — 
wertige Byte der Suaae aller 8 Bytes und dient als PrUfaOg- 
llchkelt fUr die Richtlgkeit elner Eingabe. Alls Maschlnen- 
prograaae in diesea Buch werden als Hex-Duap alt Priirsuaae 
gellstet. so dap Sie elne einfache MBglichkelt haben. die 
Richtlgkeit Ihrer Eingabe zu prtifen. 

2. ASCI I -Dump 
Eingabe: Aadresse 

Ab der elngegebenen Adresse wird der Speicherinhal t als 
ASCII-Zelchen gelistet. Jede Zeile beginnt ait der Adresse. 
In der das erste der 24 folgenden Zelchen steht. dann folgen 
die ASCII-Zelchen. Jedes Byte unter 32 dez. wird als *.' 
dargestellt. ua die Bi Idschi raausgabe nicht durch Codes wie 
'Backspace* etc. zu zerstOren. Auch beia ASCII-Dump kann die 
Ausgabe durch <CLEAR> abgebrochen und durch <Leertaste> an' 
gehalten werden. 

3. Edit hexadeziaat 
Eingabe: Eadresse 

Ab der elngegebenen Adresse kann der Speicherinhal t veren- 
dert werden. Es wird Jewells die Adresse und der bisherige 
Inhalt dleser Spelcherstel le ausgegeben. Sie kSnnen dann ein 
neues Byte eingeben, das dann in die Spelcherstel le abgelegt 
wird. Ulenn Sie statt einer Eingabe nur <RETURN> drlicken, 
wird der Editaodus abgebrochen. 



53 



Edit ASCII 
Elngabe: Tadresse 

ftb der eingegebenen Adresse kSnnen sie Text* direkt in den 
Speicher eingeben. Die Adresse wlrd angegeben. lhr Inholt 
wird in hexadezlaal und ASCII (Code kteiner els 32 - '.') 
ausgegeben. Sie konnen nun ein Zetchen eingeben, das an die- 
ser Speicnerstel le gespelchert wird. Auch hier wlrd die Eln- 
gabe abgebrochen, wenn Sie nur <RETURN> d rue hen. Achtungt Ua 
ein Leerzeichen In den Speicher elnzugeben. aUssen Sie fot- 
gendes eingeben: " ". Dies Liegt daran. dap der INPUT-Befehl 
des Colour-Basic alle filhrenden Leerzeichen Ignorlert, elne 
Elngabe elnes Leerzelchens alletn also als Leerstring ange- 
sehen wlrd. 
Go to aemory 
Elngabe; Qadresse byte 

Es wird zu einem Program* gesprungen. das bei der eingegebe- 
nen Adresse beglnnt. Wenn lhr Programm ait eine* CALL 0A7FH 
beginnt. so kBnnen Sie ein Byte in das L-Aegister iibergeben. 
Wenn Sie lhr Prograaa Bit einea 3P 0A9AH beenden. so wlrd 
der Inhalt des L-Registers wleder an das Basic iibergeben und 
der Monitor glbt es hexadez Intel eus. 
HexadeziasL Rechnung 
Cingabe: Rzahll zahl2 

Zahll, Zahl2, ihre Sueae und ihre Dirferenz werden in hexa- 
dezlaal und deziaal ausgegeben. 
SYSTEM-Band schreiben 
Elngabe; Ustart ende einsprung 

Zusetzlich wird noch der Prograaanaae ebgefregt. Dleser None 
darf aaxiaal 6 Zeichen lang sein und das erste Zeichen mup 
ein Buchstabe sein. Dann wird der Bereich von start bis ende 
ia SYSTEM-Band-Foraat auf Kossette geschrieben. 0« dieses 
Band wieder einzulesen, benutzen Sie den SVSTEM-Befeht des 
Colour-Basic und geben Sie den von Ihtien gewohlten Prograaa- 
naaen an. 

Lsufwerk selektleren 
Elngabe: Slaufwerksnuaaer 

Das angegebene LauTwerk (0 <• LauTwerhsnuaaer <■ 4) wird 
angesprochen. Alle Dishet tenzugrl f fe sind nun auf dieses 
Laufwerk gerichtet. 
Sektor lesen/schreiben 

Elngabe; Dadresse disk-relat 1 ver-sektor nag 
riag«l: Der angegebene Sektor wird ab der angegebenen 

Adresse In den Speicher gelesen. 
riag»2: Die ab der angegebenen Adresse ia Speicher stehenden 

2S6 Bytes werden in den angegebenen Sektor 

geschrieben. 
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flog»3: Wie riag-2. der besehr iebene Sektor wird aber als 
Inhal tsverzeichnls-Sektor gekennzeichnet • 

ftnMerkung: Uenn Sie einen SeKtor des Inhal tsverzeichnlsses 
einlesen. wird 'Disk error No. 6' ausgegeben. Dies ist kein CM 
Fehler, sondern Sie konnen so diese Sektoren erkennen. Uenn Sie 
einen sol Chen Sektor wieder auf die Diskette sehreiben, Blissen 
Sie riag-3 angeben. sonst ist das Inhal tverzeichnis nieht «ehr 
lesban ! ! ' 

Uenn Sie statt Hadresse bzw. Radresse PHadresse bzw. PRadresse 
angeben. geht das Listing parallel our den Drucker, 

Progra»ml 1st lng: 

10 CLS:CLEAR1000 

20 PRINTTo«»and"i iINPUTA* 

30 IFft*-""THEN20 

40 G0SUB670 

SO IFBi."P"THENPR-l :GOSUB670ELSEPR-0 

60 C*-"HAETGRS0W" 

70 F0Rfl-lTOLEN(C*D:IFBl<>MID*<C*.R.l)THENNEXTfl:GaTO20 

80 ONRG0T0100, 200, 310. 360, 430. 500. 790 ,610,940 

90 G0T020 

100 G0SUB690 

110 X-Z 

120 Z«X:G0SUB750tPRINTZ*;" " I i IFPR-1THENLPRINTZS i " "i 

130 C«0:F0RY-0T07!Z-PE£rHX+Y) tC-C+Z:G0SU875O t PRINTRIGHTit 2* , 2) ;" "i : IF 

PR-1THENLPRINTRIGHT*CZ*,2) ; " ": 

140 NEXTY: PRINT" " j : I FPR- 1THENLPRINT" "s 

150 Z-C:G0SUB750:PRINTRIGHT*CZi.2) : I FPR- 1THENLPRINTRIGHT* CZ* , 2) 

160 X-X+8 

170 HB-PEEHC1HF840):IFH8-2THEN20 

160 IFKBO128THEN120 

190 HB-PEEHCIHF840) : I FHB<> 1THEN190ELSE 120 

200 G0SUB690 

210 X-Z 

220 Z-X:Q0SUB750:PRINTZSi" ": : I FPR- ITHENLPRtNTZ* : " ": 

230 F0RV-OTO23:Z-PEEH(X+Y) 

240 IFZ<32THENZ-ftSCC'\") 

250 PRINTCHRSC2) ; : IFPR- ITHENLPRINTCHRsCZ) t 

260 NEXTY:PRINTi IFPR- 1THENLPRINT 

270 X-X+24 

280 KB-PEErUtHF840) f IFKB-2THEN20 

290 IFKBO128THEN220 

30O KB-PEErUlHF840 J : IFKB< > 1THEN300ELSE220 

310 G0SUB690 

320 X-Z 

330 Z«XtG0SUB750:PRINTZ*f" - "; :Z-PEEK(X) :G0SUB750i PRINTRIGHTSCZ* ,2] ; " 

340 ft*-"": INPUTS*: IFft*-""THEN20 

350 G0SUB690 : POKEX , ZRND255 « X-X+ 1 : GOT0330 

360 GOSUB690 

370 X-Z 

380 Z-X:G0SUB75O:PRINTZ$;" - " : :Z-PEEKC X) :G0SUB750 : PRINTRIBHT* CZ* ,2) : " 

C"t 
390 IFZ<32THENZ-ASC(".") 
400 PRINTCHRfCZ) s") - "; 
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410 Af-"": INPUTA*sIFA*-""THEN20 

a20 P0HEX.ASCCA*):X-X+1:G0T0380 

430 G0SUB690 

440 Z 1 - INT t Z/256 ) AND25S i Z2-Z AND255 

4S0 POME 1 6526. Z2 ! POKE 1 6527, Zl 

460 G0SUB670: IFB*-" "THEN460ELSEAS-BJ+AI 

470 G0SUB690:Z-ZAN0255 

480 Z-USR(Z) 

430 G0SUB750:PRINTRIGHT*(Z*.2)!G0T020 

500 G0SUB690!lFZ>-0THENXl»ZELSEXl-Z+65536 

510 GOSUB670:IFB*»" "THEN510ELSEA*-B»+A* 

520 GOSUB690i IFZ> •0THENX2-ZELSEX2.Z+65536 

530 PRINT" ft 6 A+B A-B" 

540 PRINT" "s tZ-Xl (G0SUB750tPRINTZ*(" " s «Z-X2sQ0SUB76O!PRINTZl i " " i 

S50 Z-Xt+X2i IFZ>65535THENZ-Z-6SS36 

560 G0SUB750:PRINTZ*:'* ": 

570 Z-Xl-X2!lFZ<0THENZ-2+65536 

580 G0SUB7S0:PRINTZ* 

590 Z»Xt :G0SUB640:PRINTZ*s" '*: :Z-X2 :GOSUB640: PRINTZ* : " "; 

600 Z-X1+X2: IFZ>65535THENZ-Z-65536 

610 G0SUB6«0:PRINTZ*i" " : 

620 Z.Xl-X2:IFZ<OTHENZ»Z+65536 

630 GOSUB640:PRINTZ*:GOT020 

640 ZS-STRSCZ) :ZS-RIGHT*CZ*.LENCZSJ-1! 

6S0 IFLENCZ*XSTHENZS-STRING*C5-l.ENCZ»).32)+ZS 

660 RETURN 

670 B*.~":IFLEN(A*)-OTHENRETURN 

630 B*«LEFT*CA».l) iflt-RIGHT* CA* , LENC A* i - 15 : RETURN 

690 Z-0 

700 GOSUB670 1 I FBI < "0"ORB* > "F"THEN740 

710 IFB*>"9"ANDBS<~A"THEN740 

720 I FB* < - "9"THENZ 1 -RSC ( BS ) -48ELSEZ1 -ASC C BS J -55 

730 Z-Z»16+Zl:Q0T07O0 

740 IFZ>32767THENZ-Z-65536 

750 Z 1 » I NTC Z/256 ) AN0255 : Z2-ZAND255 : Z* » "" 

760 Z3-INTCZ1/16) :G0SUB770 :Z3-ZlAN015:G0SUB770iZ3-INTCZ2^l6) IG0SUB770! 

Z3-Z2AND15 

770 IFZ3<10THENZ*-ZS+CHRSCZ3+48JELSEZ*-Z*+CHRiCZ3+55) 

780 RETURN 

790 QOSUB670: IFASCCBS1 <48DRASC(BS) J51THEN20 

800 P0KEIH5A08 , ASCCB* ) -48 :CALL00C7:GOTO20 

810 GOSUB690: AO-Z : G0SUB690 : SN-Z : G0SUB690 : FL-Z 

820 RESTORE 

830 REAOAS: I FA*<> "SEC IO"TH£N830 

840 A»- "" i FORX- 1 T01 5 : RE ADR : A* -Al+CHR* t R ) r NEXTX : FORX« 1 TOFL : RE ADDR : NEXTX 

850 X-VARPTRCA*) :X«PEEK< X+l )+256*PEEKC X+2) ; 1 FX>32767THENX-X-65S36 

860 POKE X+l.CAO AND 255DiP0KE X+2. t INTC AD/256) AN0255) 

870 POKE X+4.CSN AND 2SSJ:POKE X+5 . ( INTCSN/2Sfe)AND255) 

880 POME X+7,(0R AND 255)<P0HE X+8. C INTC DR/256 J AND255) 

890 DEFUSR1-X:X.USR1(0) :1FX"0THEN20 

900 PRINT"Disk Error No. ":X:GOT020 

910 DATA SEC 10 

920 DATA 33.0.0,17.0.0,205.0,0.111.38.0,135,154,10 

930 DATA- 12433. -12417. -12421 

940 RESTORE 

950 WR*»"" 

960 READXXS:IF XXio "SYSTEM" THEN 360 

9T0 F0RX«1T0127 

880 REAOAiWR*-WRt+CHRtCA) 

990 NEXTX;X-VARPTRCWR*)iX-PEEKCX+n+256*PEEKCX+2) : I FX>32767THENX-X-655 

36 

1 OOO R-X+9S t R 1 . 1 NT ( R/256 1 AND255 : R2-RAND25S 

56 



1010 POKEX+66 . R2 i POKEX+67 . R 1 i POKEX+75 , R2 s POKEX+76 , R 1 

1 020 GOSUB 1 220 * QOSUB 1 260 1 GOSUB 1 220 : GOSUB 1 260 : GOSUB 1 220 

1030 PRINT"Filena«e:"; tINPUTPN* 

1040 F0RX1«XT0X+5:P0K£X1 ,32iNEXTXl 

1050 F0RX1-1T0LENCPNS) iPOKEX-t+Xl , ASCt MIDK PN» .XI . 1) ) :NEXTX1 

1060 X-X+6:X1-INTCX/2563AND255:X2»XAND2S5 

1070 POKE 1 6526. X2: POKE 16527. XI 

1080 ONERRORGOTOHOO 

1090 OEFUSAO^X 

1100 ONERRORGOTOO 

1110 0NERR0RG0T01130 

1120 CMD"T 

1130 ONERRORGOTOO 

1140 Xl-USRCO) 

1150 GOT020 

1160 DATA SYSTEM 

1 1 70 DAT AO . O . , , , , 32 . 32 . 32 , 32 . 32 . 32 

1180 0ATA42. 142, 64, 17, 250, 255, 25. 205. 63, 2. 62. 85, 205, 3 1.2. 6. 6. 126, 35. 20 

5,31,2.16,249,17.244,255.25.229,221.225.221,94,0,221,86. 1 , 221 , 1 10, 2 , 22 

1.102.3 

1190 DPlTA175.237.82.35. 124.183,40,3.6,0,205,0,0,37,24,244,125.69. 183,1 

96.0.0,62.120,205.31 ,2 

1200 0ATA221 , 126,4,205.31.2.221 . 126,5.205.31 .2.201 

1210 DATA62. 60, 205. 31. 2, 120, 205. 31, 2, 123, 205, 3 1.2. 79. 122. 205, 31. 2. 129. 

79.26.19.205.31,2, 129.79.16.247,195,31,2 

1220 GOSUB690 

1230 Z1-INTCZ/256JAN025S 

1240 Z2-ZAND255 

12S0 P0KEX,Z2iP0HEX+l ,Z1 iX-X+2: RETURN 

1260 G0SUB670 

1270 IFB»-" "THEN 1260 

1280 Ai-B*+A*:RETURN •- 
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Eln Graf Ihpregran In Mascninenaprache! Lissa lou-Flguren 

Dieses Program* demons triert die MtJgl ichkei ten ait 

Masehinensproche schnelle Gran ken anzulegen. 

Es berechnet und zeichnet Lissa jou~Flguren in den Grafik- 

speleher . 

Da die Figuren aus zwei phasenverschobenen Sinuskurven 

entstehen, wurde im Program* Cab 6.H7200) elne Tabel le ait 

Slnuawerten. die auf die Graf ikauf ibsung abgestiaat sind 

angelegt. Oaait werden Lange Berechnungen veraieden. 

Rus der Tabel le werden elnfach fur jeden Punkt zwel Hoordlnaten 

entnomaen. die einen elnstel I bar en rtbstand voneinander haben. 

Geben Sie das Program* mit dea welter vorne gellsteten 
Basic-Monitor eln. Wenn Ihr Colour-Genie nur ait 16 K-Byte 
ausgeriistet 1st. aiissen Sie vorher bei Mea Size ? alt 28672 
antworten. 

Nachdea Sie es eingegeben haben. sollten Sie das Progroaa 
zunachst auf Kassette Oder Diskette abspelchern. 
Die Anfangsadresse 1st HH7000. Endadresse *H7437 und 
Startodresse 1st IH7090, 

Falts Sie einen Monitor ait Disassembler zur VerfUgung haben. 
konnen Sie die Elnzehlheiten des Prograaaes lelcht analysieren, 
da es modular auTgebaut 1st. 

Noch ein Wort zur Bedlenung: 

Mit den Pfeiltasten konnen Sie das Frequenzverhal tnis 
CPTeil-oben I Prell-untenJ bzw. die Geschwlndigkel t der 
Phasenverschiebung einstel len CPfeil-tinks t Pfeil-rechts) . 



Auf den nHchsten drel Seiten finden Sie das Hexlisting des 
Programms alt Prtifsuaaen. 
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7000 ES D5 21 00 72 5F 16 00 C2 

7008 19 7E Dl El C9 00 00 00 12 

7010 4F 3A FF 7F 81 E6 7F C3 BO 

7016 00 70 00 00 00 00 00 00 70 

7020 06 7F C5 78 CD 00 70 C6 C5 

7028 20 67 3ft FE 7F 4F 3ft FD C4 

7030 7F 81 32 FE 7F CD 10 70 FC 

7038 6F CD C6 3C CI OS C2 22 EB 

7040 70 C9 00 00 00 00 00 00 39 

7048 00 00 00 00 00 00 00 00 00 

7050 3ft FF 7F 4F 3ft FC 7F 81 30 

7058 32 FF 7F CO 20 70 21 FO 2B 

7060 7F 3ft 40 F8 FE 08 20 01 18 

7068 34 FE 10 20 01 35 2B FE CI 

7070 40 20 01 34 FE 20 20 01 D4 

7078 35 CD 40 71 C3 DO 70 00 B6 

7080 00 00 00 00 00 00 00 00 00 

7088 00 00 00 00 00 00 00 00 00 

7090 3E 03 32 13 43 3E 02 32 3B 

7098 FC 7F 32 FD 7F 21 00 48 92 

70ft0 11 01 48 01 FF OF 36 00 9F 

70A8 ED BO C3 EB 70 00 00 00 Be 

7060 E5 DS 06 05 7E 12 23 C5 3D 

70B8 01 28 00 EB 09 EB CI 10 D9 

70C0 F3 Dl El C9 00 00 00 00 6E 

70C8 00 00 00 00 00 00 00 00 00 

7000 21 00 48 11 00 58 01 48 IB 

7008 00 ED BO 21 00 48 11 01 25 

70E0 48 01 48 00 36 00 ED BO 71 

70E8 C3 50 70 3E 18 32 03 43 51 

70F0 3E 60 32 09 43 CD A9 38 Cft 

70F8 C3 6B 71 00 00 00 00 00 9F 

7100 00 ft8 88 88 88 ft8 20 20 28 

7108 20 20 20 ft8 08 ft8 80 ft8 EO 

7110 fl8 08 28 08 ft8 88 88 ft8 40 

7118 08 08 ft8 80 ft8 08 ft8 ft8 38 

7120 80 R8 88 ftS ft8 08 08 08 18 

7128 08 ft8 88 ft8 89 1=18 A8 88 40 

7130 ft6 08 ft8 00 00 00 00 00 58 

7138 00 00 00 00 00 00 00 00 00 

7140 3ft FC 7F 11 28 4B OE 64 ft8 

7148 CD 80 71 OE Oft CD 90 71 94 

7150 OE 01 CD 80 71 3ft FD 7F 83 

7158 11 40 49 OE 64 CD 80 71 Cfl 

7160 OE Oft CO 80 71 OE 01 CD B2 

7168 80 71 C9 21 80 72 11 48 26 

7170 65 01 FF 01 ED BO C3 50 16 

7178 70 00 00 00 00 00 00 00 70 

7180 D5 21 01 71 11 05 00 19 97 

7188 91 30 FC 81 B7 ED 52 Dl 05 

7190 13 F5 CD 60 70 Fl C9 00 ftF 

7198 00 00 00 00 00 00 00 00 00 

71ft0 00 00 00 00 00 00 00 00 00 



59 



71ft8 00 00 00 00 00 00 00 00 O0 

71B0 00 00 00 00 00 00 00 00 00 

71B6 00 00 00 00 00 00 00 00 00 

71C0 00 00 00 00 00 00 00 00 00 

71C8 00 00 00 00 00 00 00 00 00 

71D0 00 00 00 00 00 00 00 00 00 

7XD8 00 00 00 00 00 00 00 00 00 

71E0 00 00 00 00 00 00 00 00 00 

71EB 00 00 00 00 00 00 00 00 00 

71F0 00 00 00 00 00 00 00 00 00 

71 F8 00 00 00 00 00 00 00 00 00 

7200 30 31 33 34 36 37 38 3ft 07 

7208 3B 3D 3£ 3F 41 42 43 44 FF 

7210 45 46 47 48 49 4ft 48 4C 44 

7218 4C 4D 40 4E 4E 4E 4E 4E 6C 

7220 4F 4E 4E 4E 4E 4E 40 40 6F 

7228 4C 4C 48 4ft 49 48 47 46 48 

7230 46 44 43 42 41 3F 3E 3D 09 

7238 3B 3fl 38 37 36 34 33 31 B2 

7240 30 2E 2C 2B 29 28 27 25 52 

7248 24 22 21 20 IE ID 1C IB F9 

72SO 1ft 19 18 17 16 16 14 13 B4 

7258 13 12 12 11 11 11 11 11 8C 

7260 11 11 11 11 11 11 12 12 8ft 

7268 13 13 14 15 16 17 18 19 AD 

7270 lfl 18 1C ID IE 20 21 22 EF 

7278 24 25 27 28 29 28 2C 2E 46 

7280 00 00 00 00 00 14 00 01 15 

7288 55 40 05 55 00 05 55 00 49 

7290 01 55 00 15 55 50 05 55 6ft 

7298 00 50 05 00 01 54 00 40 Eft 

72ft0 15 00 15 00 15 00 00 00 3F 

72A8 00 00 00 00 00 14 00 01 15 

72B0 55 40 15 55 40 15 55 40 E9 

72B8 05 55 40 15 55 50 15 55 BE 

72C0 40 50 05 00 04 01 01 40 08 

72C8 51 40 51 40 51 40 00 00 B3 

7200 01 00 00 01 00 14 00 00 16 

T208 14 00 54 01 40 54 01 40 3E 

72E0 15 01 50 14 01 SO 15 05 E5 

72E8 40 50 05 00 04 51 05 40 2F 

T2F0 51 40 51 40 01 40 00 00 63 

72F8 04 40 OO 04 40 14 00 00 9C 

73O0 14 00 54 00 00 54 00 00 BC 

7308 14 00 50 00 00 50 14 01 C9 

7310 40 50 05 00 04 41 01 40 IB 

7318 15 40 15 00 05 00 00 00 6F 

7320 04 10 00 10 40 14 00 00 78 

7328 14 00 15 55 00 15 55 00 E8 

7330 15 55 50 00 00 SO 14 01 IF 

7338 40 50 05 00 04 51 01 40 2B 

7340 01 40 51 40 01 40 00 00 13 
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7348 04 04 00 40 40 14 00 00 9C 

7350 14 00 05 55 40 05 55 40 48 

7356 15 55 50 00 00 SO 14 01 IF 

7360 40 50 05 00 04 01 01 40 OB 

7368 51 40 51 40 51 40 00 00 B3 

7370 01 01 01 01 00 14 00 00 18 

7378 14 00 00 06 50 00 01 50 Bfl 

7380 14 00 50 00 00 50 14 01 C9 

7388 40 50 05 00 01 54 05 50 3F 

7390 15 00 15 00 15 00 00 00 3F 

7398 01 00 44 01 00 14 00 00 5ft 

73A0 14 00 00 01 50 00 00 50 B5 

73fl8 14 00 50 00 00 50 14 01 C9 

73B0 40 50 05 00 04 00 00 00 39 

73B8 00 00 00 00 00 00 00 00 00 

73C0 00 40 10 04 00 14 00 00 68 

73C8 14 00 14 05 50 14 01 50 E2 

73O0 14 00 50 14 01 50 15 05 E3 

73D8 40 54 15 00 05 55 55 55 PlD 

73E0 55 55 55 55 55 40 00 00 E9 

73E8 00 40 44 04 00 15 55 41 33 

73F0 55 40 15 55 40 15 55 40 E9 

73F9 14 00 50 15 55 50 15 55 88 

7400 40 55 55 00 00 00 00 00 Eft 

7408 00 00 00 OO 00 00 OO 00 00 

7410 00 15 01 50 00 15 55 41 11 

7418 55 40 05 55 00 05 55 00 49 

7420 14 00 50 05 55 40 05 55 58 

7429 00 15 54 00 05 55 55 55 60 

7430 55 55 55 55 56 40 00 00 E9 
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'ZALAQA* ©in Spielprograaa in Maschlnenspreche 
fuer das Colour-Qenle ait ISHSyte RAM. 



ZALAGA 1st ein fiction-Spiel in Meschinemspraehe. das 

auf Geschwindigkeit ausgelegt 1st. 

Es soil elnmal deaonstrleren, wo die wahren Vorteile 

der Maschlnenprograaalerung liegen. 

Sie geben das Prograaa aa guens tigs ten ait dea welter 

vorne gelisteten Basic-Monitor ein Oder ait einea 

anderen Maschinenspracheaonitor . Wenn Ihr Geraet nur 

•it 16KByte RAM ausgeruestet 1st. so geben Sie vorher 

bei MEM SIZE' 29672 ein und laden dann den Monitor. 

Oas Program* best eh t aus zwei grosser! Bloeckem , 

Das eigentlleAe Prograaa belegt den Speicher von 

7000H bis 75FFH. Es ist wiederua in kletnere 

Unterprograaiae elngeteilt, wie aus der Documentation 

hervorgeht . 

Der zweite Tell sind Tabellen. finf angsgraf ik und die 

Uerte fuer die def inierboren Zeichen. 

Dieser Block beginnt bel 7800H . Sie haben also noch 

genuegend frelen Speicher ua das Prograaa ua- Oder 

auszubauen . 

Die Luechen zwlschen den einzelnen Unterprograaaen 

erlauben kieine Aendorungen aucft innerhalb des ersten 

Prograaateils. Auf jedenfall sollten Sie zuerst elne 

Original-Version auf Kassette Oder Diskette sichern. 

Also spelchern Sie von 7000H bis 7FFFH alt der Start- 

adresse 75B0H . 

Noch elnlge Anaerkungen ueber den AuTbau der Tabellen. 

Die Tabelte der Positionen der Feinde besteht aus 12B 

Bytes. Fuer jedes der 32 Objekte stehen 4 Bytes zur 

Verfuegung. Die ersten beiden Bytes entsprechen der 

Position des Feindes la Si Idschiraspeicher (4400H-47E7H) . 

Ist diese Position gtelch 0. so bedeutet dies, dess der 

jeweilige Poind schon abgeschossen wurde. 

Das 3. Byte belnholtet das LSB der V-Richtung des Feindes. 

Es kann die Werte 00H.28K Oder D8H annehaen. 00H helsst 

keine Y-Rlchtung 28H entspricht 40D also 40 Zeichen pro 

Bewegung aehr Celne Blldschirazei Le) und D8H entspricht 

-40D also elne Zeile nach oben. 

Das drltte Byte dient als Zaehler fuer die Bewegungen eines 

Feindes nach unten. Nach 24 Bewegungen Cda die erste Zeile 

nicht benutzt wird) ist ein Feind wleder In seiner Ausgangs- 

zeile. 

Die X-Richtung ist fuer alle Feinde taaer gleich. 

Sobald ein Feind aa 1 tnken Oder rechten Bi Idscht rarand 

1st, wird die X-Richtung fuer alle uagekehrt. 

Die Tabelle wird, da sie veroendert werden muss, zu Beginn 

jeder Aunde von 7900H nach 7880H koplert. 

Zwei weitere Tabetlen sind nach dea glelchen Prinzip aufgebeut. 

Die Tabellen der Schuesse und die der Explosionen. 

Die Schusstobel le besteht aus 16 Bytes, Jewells LSB und MSB 

der Schussposi t ion la Bi Idschiraspeicher . Sie wird ab 7870H 

angel est. Die Explosionstabel le besteht aus 24 Bytes ab 

7S50H. Sie hat zusaetzlich zu der Position der Explosion noch 

ein Byte als Zaehler fuer dte drei Phasen der Explosion. 

Die Anf angsgraf ik beginnt bei 7AO0H und belegt 1024 Byte. 

Die def Inierbaren Zeichen beginnen bei 7E00 und belegen 

512 Bytes. Sie sind zusaetzlich noch elnaal vergroessert in 

Anschluss an das Listing ausgedruckt . 

Die ersten 32 Zeichen von 128 bis 153 sind fuer 8 Feindtypen 
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In je zwei Bewesungszustaenden derinlert. 

Danach Tolgen die Zelchen fuer Schiff . ScKuesse. Explosionen usw. 

Doch nun wollen Mir Sle nlcht welter voi tippen obholten. 

Wir wuenschen Ihnen vlel Qluech bei« Kaapf gegen die Zalonen. 

Dos Progra»«l 1st ing: 

7000 21 00 TE 11 00 F4 01 00 A5 

7008 02 ED BO 3E 01 CO BO 3F 9A 

7010 CO FO 70 21 00 7ft 11 00 09 

7018 44 01 00 04 EO BO 21 00 07 

7020 FO 11 01 FO 01 FF 03 36 2B 

7028 06 ED BO CD FO 14 2ft flA 48 

7030 40 7C E6 01 C6 44 67 FE 12 

7038 44 26 05 70 FE 18 30 EB IF 

7040 7E FE 7F 28 Oft 36 7F 11 F3 

7048 00 ftC 19 36 02 IB 10 E5 Oft 

7050 01 EB 01 00 36 09 7E 12 8C 

7058 EB 11 00 AC 19 36 05 CO C9 

7060 26 00 FE 30 Dft 2B 70 FE CC 

7068 3ft 38 08 FE 53 C2 2B 70 28 

7070 C3 80 70 32 3C 47 D6 30 6E 

7078 32 00 42 C3 2B 70 00 00 D2 

7080 21 00 00 22 02 42 3E 07 CC 

7088 32 01 42 3ft 3C 47 06 30 38 

7090 32 00 42 3E 07 D3 F8 3E C2 

7098 F7 D3 F3 21 Eft 73 06 05 4C 

70ftO 36 BO 23 10 FB 3E 05 03 2 A 

70ftB F6 3E 03 03 F9 21 DO 07 FO 

70B0 22 OC 42 C3 80 74 00 00 27 

70B6 00 00 00 00 00 00 00 00 00 

70CO 00 00 00 00 00 00 00 00 00 

70C8 00 00 00 00 00 00 00 00 00 

7000 00 00 00 00 00 00 00 00 00 

7008 00 00 00 00 00 00 00 00 00 

70E0 00 00 00 00 00 00 00 00 00 

70E8 00 00 00 00 00 00 00 00 00 

70F0 3E 07 03 F8 3E FF D3 F3 19 

70F8 CO BO 38 C9 00 00 00 00 7E 

7100 DD 21 80 78 EO 4B 08 42 78 

7106 DO 6E 00 00 66 01 7C B5 CO 

7110 Cft B3 71 36 20 23 36 20 BD 

7118 2B 09 DD 5E 02 16 00 7B 02 

7120 FE DB 20 02 16 FF 19 B7 00 

712B 28 OC FE 28 28 OS DO 35 99 

7130 03 IS 03 00 34 03 00 7E 80 

7138 03 B7 20 04 DD 36 02 00 F3 

7140 FE 18 20 08 DD 36 02 00 53 

7148 00 36 03 00 11 E8 47 OF 35 

7150 38 04 11 40 FC 19 11 28 DB 

7158 44 OF 30 04 11 CO 03 19 44 

7160 DD 75 00 DO 74 01 3ft 01 DF 

7168 42 E6 07 07 07 C6 80 5F E2 

7170 3A Oft 42 E6 02 83 77 23 SB 

7178 3C 77 11 FF AB 19 3ft 01 C2 ' 

7180 42 3C 77 23 77 DO 7E 03 ED 

7188 B7 20 13 CD FO 14 3A 00 F5 

7190 42 SF 3A Aft 40 BS 30 04 64 

7198 00 36 02 28 18 15 00 7E C5 

71A0 02 FE 29 20 OE CD FO 14 27 

7108 3A Aft 40 FE 01 30 04 DD 34 

7160 36 02 08 11 04 00 00 19 IB 

71B8 DO 7D B7 C2 04 71 C9 00 11 
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71C0 3E 09 03 F8 OB F9 B7 28 C4 

71C8 01 30 03 F9 21 28 44 11 AB 

T1D0 28 00 06 16 7E FE 20 20 00 

71D8 05 19 10 F8 18 06 21 01 66 

71E0 00 22 08 42 21 4F 44 06 26 

71E8 16 7E FE 20 20 04 19 10 FF 

71F0 F8 C9 21 FF FF 22 08 42 4C 

71F8 C9 00 00 00 00 00 00 00 C9 

7200 3A Oft 42 3C 32 OA 42 CD OD 

7203 00 71 CD CO 71 CO 39 74 E8 

7210 3ft 40 F8 E6 20 28 01 2B CC 

7218 3ft 40 F8 E6 40 28 01 23 E4 

7220 70 FE 98 20 01 23 FE BC 11 

7228 20 01 2B 22 06 42 CD 50 03 

7230 74 3ft 40 F8 E6 80 28 03 77 

7238 CD 70 72 CD 80 73 3ft 40 E8 

7240 F8 FE 06 CA 00 70 3ft OB 7B 

7248 42 B7 C2 00 72 C3 90 74 E4 

7250 00 00 00 00 00 00 00 00 00 

7258 00 00 00 00 00 00 00 00 00 

7260 00 00 00 00 00 00 00 00 00 

7268 00 00 00 00 00 00 00 00 00 

7270 21 70 78 7E 23 86 28 07 8F 

7278 23 70 FE 80 20 F5 C9 2B 27 

7280 EB 2ft 06 42 01 D9 FF 09 3F 

7288 EB 73 23 72 EB 36 fl6 11 CB 

T290 00 AC 19 36 03 C9 00 00 C7 

7298 E5 FD 21 50 78 FD 6E 00 36 

72A0 FD 66 01 7C B5 28 12 FD CC 

72ftS 23 FD 23 FD 23 FO 7D FE DB 

72B0 68 C2 90 72 El 21 00 00 38 

72BS C9 El 7E E6 01 28 01 2B 63 

72C0 FD 75 00 FO 74 01 FD 36 17 

72C8 02 00 EB FO 21 80 78 FD 00 

7200 6E 00 FO 66 01 DF 28 OE E7 

7Z08 01 04 00 FD 09 FD 7D B7 3C 

72E0 20 ED 21 00 00 C9 36 20 40 

72E8 23 36 20 21 00 00 FD 75 OC 

72F0 00 FO 74 01 2fl 02 42 3fi 1A 

72F8 00 42 07 3C 5F 16 00 19 13 

7300 22 02 42 3ft OB 42 30 32 5C 

7308 OB 42 21 00 00 3E 08 03 87 

7310 F8 3E OF D3 F9 C9 00 00 DA 

7318 00 00 00 00 00 00 00 00 00 

7320 3E 30 3C 09 3B FC 30 ED 11 

7328 42 12 13 C9 05 ED 5B OC 59 

7330 42 DF 39 1ft EB 01 DO 07 36 

7338 09 22 OC 42 EB 11 E4 79 D2 

7340 1ft FE BO 20 06 13 7B FE 7A 

7348 EE 20 F5 3E 60 12 01 01 D5 

7350 FO D8 CO 20 73 01 19 FC 3D 

7358 CD 20 73 01 9C FF CD 20 E9 

7360 73 01 F6 FF CD 20 73 01 CA 

7368 FF FF CD 20 73 21 08 79 DO 

7370 11 00 44 01 28 00 EO BO IB 

7378 C9 00 00 00 00 00 00 00 C9 

7380 OD 21 70 78 OD 6E 00 DO OE 

7388 66 01 7C B5 28 36 7E FE 72 

7390 AO 38 1A 36 20 11 D8 FF 30 

7338 19 11 28 44 OF 30 05 21 CB 

73A0 00 00 19 14 7E FE 80 38 60 
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73A8 07 FE AO 30 03 CO 98 72 AF 

7360 3A OA 12 E6 01 C6 A6 77 50 

73B8 DO 75 00 00 74 01 11 00 B5 

73C0 AC 13 36 09 OD 23 DD 23 0<t 

73CS DD 7D FE 80 C2 84 73 DD 6E 

73D0 21 50 78 DD 6E 00 DD 66 77 

73D8 01 7C B5 28 28 DD 7E 02 DF 

73E0 07 C6 AA FE BO 20 08 36 83 

73E8 20 23 36 20 21 00 00 DD 97 

73F0 75 00 DD 74 01 77 23 3C 90 

73F8 77 11 FF FIB 18 D6 09 77 Al 

7400 23 77 DD 34 02 DO 23 DD BA 

7408 23 00 23 DO 7D FE 68 C2 A5 

7410 D3 73 2A 02 42 U DE 79 1C 

7418 CD 2C 73 2A 02 42 ED 5B 22 

7420 04 42 DF 36 09 22 04 42 CE 

7428 11 FB 79 CO 4F 73 C9 00 DD 

7430 00 00 00 00 00 00 00 00 00 

7438 2A 06 42 06 03 7E FE AO 97 

7440 38 09 36 20 23 10 F6 2B EB 

7448 2B 2B C9 Fl C3 30 75 00 78 

7450 06 AO 3A OA 42 E6 01 28 3B 

7458 02 06 A3 78 77 23 3C 77 70 

7460 23 3C 77 11 FE AB 19 36 OF 

7468 06 23 36 02 23 36 06 C9 89 

7470 00 00 00 00 00 00 00 00 00 

7478 00 00 00 00 00 00 00 00 00 

7480 21 00 44 U 01 44 01 FF BB 

7488 03 36 20 ED 60 21 08 79 68 

7490 II 00 44 01 28 00 ED BO IB 

7498 21 00 78 11 00 FO 01 28 C3 

74A0 00 ED BO 3A 01 42 3C E6 3C 

74A8 07 32 01 42 21 AB 47 22 Bl 

74B0 06 42 21 00 79 11 80 78 EB 

7488 01 80 00 ED BO 21 01 00 40 

74C0 22 OB 42 21 50 78 11 51 B7 

74C8 78 01 2F 00 36 00 ED BO 7B 

74D0 3E 20 32 OB 42 3A 00 42 59 

74D8 3C 32 00 42 21 28 78 11 62 

74E0 3C 46 01 10 00 ED BO 2A SA 

74E8 06 42 CD 50 74 3E 18 32 61 

74F0 89 71 06 OC C5 CD 00 71 OF 

74F8 CO CO 71 21 3C F2 11 3D 9B 

7500 F2 01 OF 00 ED 5F 77 ED B2 

7508 BO 01 00 18 CD 60 00 CI B7 

7510 10 E2 3E 20 32 89 71 21 90 

7518 3C 46 11 30 46 01 OF 00 26 

7520 77 ED BO C3 00 72 00 00 49 

7528 00 00 00 00 00 00 00 00 00 

7530 06 IF 3E 07 D3 F8 3E £7 5A 

7536 03 F9 C5 3E 09 03 F8 78 IB 

7540 E6 OF D3 F9 3E 06 03 F8 DO 

7548 3E IF 90 D3 F9 3A OA 42 3F 

7550 3C 32 OA 42 CD 00 71 CO CS 

7558 CO 71 CD 80 73 2A SO 78 E3 

7560 7C B5 20 18 2A 06 42 ED C8 

7568 5F E6 01 28 01 23 22 50 04 

7570 78 32 52 78 3E 08 03 F8 85 

7578 3E OF 03 F9 CI 10 BB 21 C6 

7580 EE 79 7G FE BO 28 09 2B EF 

7588 70 FE E3 20 F5 C3 AO 75 4B 

7590 36 20 3A 01 42 3D 32 01 43 
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7598 42 C3 80 74 00 00 00 00 F9 

75A0 21 FA 79 11 60 7D 01 06 89 

75A8 00 ED BO C3 00 70 00 00 00 

75B0 21 00 00 22 04 42 11 00 AA 

75B8 60 C3 00 70 00 00 00 00 33 

75C0 00 00 00 00 00 00 00 00 00 

75C8 00 00 00 00 00 00 00 00 00 

75D0 00 00 00 00 00 00 00 00 00 

7508 00 00 00 00 00 00 00 00 00 

75E0 00 00 00 00 00 00 00 00 00 

75E8 00 00 00 00 00 00 00 00 00 

75F0 00 00 00 00 00 00 00 00 00 

75F8 00 00 00 00 00 00 00 00 00 

7600 00 00 00 00 00 00 00 00 00 

7608 00 00 00 00 00 00 00 00 00 

7610 00 00 00 00 00 00 00 00 00 

7618 00 00 00 00 00 00 00 00 00 



Nun folgen die Tabelleri und Anf angsgrar Iks 

7800 02 02 02 02 02 03 03 03 13 

7808 03 03 03 06 06 06 06 06 27 

7810 06 06 06 06 06 06 06 02 2C 

7818 02 02 02 02 02 02 02 02 10 

7820 02 03 03 03 03 03 03 03 17 

7828 2A 2A 20 47 45 54 20 52 C6 

7830 45 41 44 59 20 20 2A 20 B7 

7838 00 00 00 00 00 00 00 00 00 

7840 00 00 00 00 00 00 00 00 00 

7848 00 00 00 00 00 00 00 00 00 

7850 00 00 00 00 00 00 00 00 00 

7858 00 00 00 00 00 00 00 00 00 

7860 00 00 00 00 00 00 00 00 00 

7868 00 00 00 00 00 00 00 00 00 

7870 00 00 00 00 00 00 00 00 00 

7878 00 00 00 00 00 00 00 00 00 

7880 00 00 00 00 00 00 00 00 00 

7888 00 00 00 00 00 00 00 00 00 

7830 00 00 00 00 00 00 00 00 OO 

7898 00 00 00 00 00 00 00 00 OO 

78AO 00 00 00 00 00 00 00 00 00 

78A8 00 00 00 00 00 00 00 00 00 

7860 00 00 00 00 00 00 00 00 00 

78B8 00 00 00 00 00 00 00 00 00 

78C0 00 00 00 00 00 00 00 00 00 

78C8 00 00 00 00 00 00 00 00 00 

7800 00 00 00 00 00 00 00 00 00 

78D8 00 00 00 00 00 00 00 00 00 

78EO 00 00 00 00 00 00 00 00 00 

78E8 00 00 00 00 00 00 00 00 00 

78F0 00 00 00 00 00 00 00 00 00 

78F8 00 00 00 00 00 00 00 00 00 

7900 50 44 00 00 54 44 00 00 2C 

7908 58 44 00 00 5C 44 00 00 3C 

7910 60 44 00 00 64 44 00 00 4C 

7918 68 44 00 00 6C 44 00 00 6C 

7920 A2 44 00 00 A6 44 00 00 00 

7928 AA 44 00 00 AE 44 00 00 EO 

7930 82 44 00 00 86 44 00 00 FO 

7338 BA 44 00 00 F4 44 00 00 36 

7840 F8 44 00 00 FC 44 00 00 7C 
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7948 00 45 00 00 04 45 00 00 8E 

7950 08 45 00 00 46 45 00 00 D8 

7968 4fl 45 00 00 4E 45 00 00 22 

7960 52 45 00 00 56 45 00 00 32 

7968 98 45 00 00 9C 45 00 00 BE 

7970 A0 45 00 00 (=14 45 00 00 CE 

7378 EA 45 00 00 F2 45 00 00 66 

7980 00 00 00 00 00 00 00 00 00 

7988 00 00 00 00 00 00 00 00 00 

7990 00 00 00 00 00 00 00 00 00 

7998 00 00 00 00 00 00 00 00 00 

79A0 00 00 00 00 00 00 00 00 00 

79A8 00 00 00 00 00 00 00 00 00 

79B0 00 00 00 00 00 00 00 00 00 

79B9 00 00 00 00 00 00 00 00 00 

79C0 00 00 00 00 00 00 00 00 00 

79C8 00 00 00 00 00 00 00 00 00 

79O0 00 00 00 00 00 00 00 00 00 

79DS B6 B7 B8 B9 BA 20 30 30 18 

79E0 32 31 32 20 20 20 20 20 35 

79E8 20 20 20 20 20 20 20 91 91 

79F0 B2 63 64 65 66 B7 68 B9 AC 

79F8 BA 20 20 30 36 37 33 30 FA 

7A00 20 20 CA CA CA CA CA 20 52 

7A08 CD CA CA CA EO 20 CA 20 15 

7A10 20 20 20 20 CD CA CA CA AB 

7A18 EO 20 CO CA CA CA EO 20 2B 

7A20 CD CA CPI CA EO 20 20 20 6B 

7A28 20 20 20 20 20 CD £2 20 6F 

7A30 CA 20 20 20 CA 20 CA 20 FE 

7A38 20 20 20 20 CA 20 20 20 AA 

7A40 CPI 20 CA 20 20 20 Dl 20 05 

7A48 CPI 20 20 20 CPi 20 20 20 54 

7AS0 20 20 20 20 CD E2 20 20 6F 

7p|58 CA 20 20 20 CA 20 CA 20 FE 

7A60 20 20 20 20 CA 20 20 20 AA 

7A68 CPI 20 CA 20 20 20 20 20 54 

7A70 CA 20 20 20 CA 20 20 20 54 

7A78 20 20 20 CD E2 20 20 20 6F 

7A80 CA CA CA CA CA 20 CA 20 FC 

7A88 20 20 20 20 CA CA CA CA A8 

7A90 CA 20 CA 20 CA CA CA 20 52 

7A98 CA CA CA CA CA 20 20 20 52 

7AA0 20 20 CD E2 20 20 20 20 6F 

7AA8 CA 20 20 20 CA 20 CA 20 FE 

7AB0 20 20 20 20 CA 20 20 20 Afl 

7AB8 CA 20 CA 20 20 20 CA 20 FE 

7AC0 CA 20 20 20 CA 20 20 20 54 

7AC8 20 20 CA 20 20 20 20 20 AA 

7A00 CA 20 20 20 CA 20 CA 20 FE 

7A08 20 20 20 20 CA 20 20 20 AA 

7AE0 CA 20 CA 20 20 20 CA 20 FE 

7AE8 CA 20 20 20 CA 20 20 20 54 

7AF0 20 20 CA CA CA CA CA 20 52 

7AF8 CA 20 20 20 CA 20 CA CA A8 

7B00 CA CA CA 20 CA 20 20 20 A9 

7B09 CA 20 E4 CA CA CA E2 20 2E 

7B10 CA 20 20 20 CA 20 20 20 54 

7B18 20 20 20 20 20 20 20 20 00 

7B20 20 20 20 20 20 20 20 20 00 

7B28 20 20 20 20 20 20 20 20 00 
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7B30 20 20 20 20 20 20 20 20 00 

7B38 20 20 20 20 20 20 20 20 00 

7B40 20 20 44 69 65 20 Sfl 61 2D 

7B48 6C 6F 6E 65 6E 20 61 75 12 

7B50 73 20 64 65 72 20 4T 61 36 

7B58 eC 61 78 63 65 20 IE 47 C8 

7B60 43 2D 35 34 37 20 20 20 70 

7B68 20 20 67 72 65 69 66 65 B2 

7B70 6E 20 64 69 65 20 45 72 97 

7B78 64 65 20 6D 69 74 20 69 BC 

7B80 68 72 65 72 20 67 65 73 10 

7B88 61 6D 74 65 6E 20 20 20 75 

7B90 20 20 46 6C 6F 74 74 65 <=IE 

7B98 20 61 6E 2E 20 53 69 65 5E 

7BA0 20 73 69 6E 64 20 6D 69 C4 

7BA8 74 20 64 65 6D 20 6C 65 SB 

7BB0 74 7fl 74 65 6E 20 20 20 95 

7BBS 20 20 46 6C 61 67 67 73 94 

7BC0 63 68 69 66 66 20 64 65 E9 

7BC8 72 20 52 61 75 60 2D 42 96 

7BD0 61 73 69 73 20 48 61 6E E7 

7BD8 67 65 6C 61 72 20 20 20 6B 

7BE0 20 20 67 65 66 6C 6F 68 65 

7BE8 65 6E 20 75 6E 64 20 6D C7 

7BF0 75 65 73 73 65 6E 20 73 26 

7BF8 69 63 68 20 64 75 72 63 02 

7C00 68 20 64 69 65 20 20 20 1A 

7C08 20 20 20 20 20 66 65 63 D4 

7C10 6E 64 6C 69 63 68 65 6E 45 

7C18 20 52 65 69 68 65 6E 20 9B 

7C20 6B 61 65 6D 70 66 65 6E 47 

7C28 2E 20 20 20 20 20 20 20 0E 

7C30 20 20 20 20 20 20 20 20 00 

7C38 20 20 20 20 20 20 20 20 00 

7C40 20 20 20 20 20 20 20 20 00 

7C48 20 20 20 20 20 20 20 20 00 

7C50 20 20 20 20 20 20 20 20 00 

7C58 20 20 44 69 65 20 53 74 39 

7C60 65 75 65 72 75 6E 67 20 IB 

7C68 64 65 73 20 53 63 68 69 E3 

7C70 66 66 73 20 67 65 73 63 01 

7C78 68 69 65 68 74 20 20 20 72 

7C80 20 20 60 69 74 20 64 65 73 

7C88 6E 20 50 66 65 69 6C 74 F2 

7C90 61 73 74 65 6E 2E 20 49 B2 

7C98 68 72 20 4C 61 73 65 72 Fl 

7CA0 20 77 63 72 64 20 20 20 36 

7Cft8 20 20 20 20 20 60 69 74 Eft 

7CB0 20 64 65 72 20 4C 65 65 91 

7CB8 72 74 61 73 74 65 20 61 14 

7CC0 76 73 67 65 6C 6F 65 73 67 

7CC8 74 2E 20 20 20 20 20 20 62 

7C00 20 20 20 20 20 20 20 20 00 

7CD8 20 20 20 20 20 20 20 20 00 

7CE0 20 20 20 20 20 20 20 20 00 

7CE8 20 20 20 20 20 20 20 20 00 

7CF0 20 20 20 20 20 20 20 20 00 

7CF8 20 20 OF 03 03 03 03 D3 3E 

7000 03 03 03 D3 03 03 03 03 98 

7D08 03 03 D3 D3 03 03 D3 03 98 

7010 03 03 03 03 03 D3 D3 03 98 

7018 03 03 D3 D3 E3 20 20 20 8F 
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7020 20 20 CF 47 45 53 43 48 79 

7D28 57 49 4E 44 49 47 48 45 52 

7D30 49 54 20 28 30 2E 2E 2E 9F 

7D38 39 29 20 20 35 20 20 20 37 

7D40 20 20 20 20 OB 20 20 20 BB 

7D48 20 20 CF 42 46 53 54 45 82 

7050 53 20 45 52 47 45 42 4E 26 

7059 49 53 20 20 20 20 20 20 5C 

7D60 20 30 30 30 30 30 20 20 50 

7068 20 20 20 20 OB 20 20 20 BB 

7070 20 20 CF 40 72 75 65 63 02 

7078 6B 65 6E 20 53 69 65 20 9F 

7DS0 3C 53 3E 20 75 60 20 7ft 69 

7088 75 20 62 65 67 69 6E 6E 08 

7D90 65 6E 20 21 OB 20 20 20 4F 

7D98 20 20 E3 Oft Oft Oft Oft Oft 65 

70ft0 Oft Oft Oft Oft Oft Dft Oft Oft DO 

70ft8 Dft Oft Oft Dft Oft Oft Oft Dft DO 

7DB0 Oft DPI Dft Oft Oft Dft Dft Dft DO 

70B8 Dft Oft Dft Dft OF 20 20 20 ft7 

7DC0 20 20 20 20 20 20 20 20 00 

70C8 20 20 20 20 20 20 20 20 00 

70D0 20 20 20 20 20 20 20 20 00 

70D8 20 20 20 20 20 20 20 20 00 

70E0 20 20 20 20 20 20 20 20 00 

7DE8 00 00 00 00 00 00 00 00 00 

TOFO 00 00 00 00 00 00 00 00 00 

7DF8 00 00 00 00 00 00 00 00 00 

7EO0 02 02 07 OE 1C 3F OC 18 98 

7E08 40 40 EO 70 38 FC 30 18 4C 

7E10 04 02 07 OE 1C 3F OC 06 88 

7E18 20 40 EO 70 38 FC 30 60 74 

7E20 OF 19 39 IF OF Oft 14 Oft 67 

7E28 FO 98 9C F8 FO 50 28 50 D4 

7E30 OF 19 39 IF OF Oft 14 28 05 

7E38 FO 98 9C F8 FO SO 28 14 98 

7E40 07 IF 29 29 IF OF 03 01 ftft 

7E48 EO F8 94 94 F8 FO CO 90 28 

7E50 07 IF 32 32 IF OF 03 01 BC 

7E58 EO F8 4C 4C F8 FO CO 80 98 

7E60 01 02 04 F9 7F 2B 01 00 ftB 

7E68 80 40 20 9F FE D4 80 00 01 

7E70 01 03 04 09 3F 6B ftl 00 5C 

7E78 80 CO 20 90 FC 06 85 00 47 

7E80 00 82 42 31 2E 4ft 1 1 00 7E 

7E88 00 41 42 8C 74 52 88 00 5D 

7E90 00 02 02 01 FE 2ft 09 00 36 

7E9S 00 40 40 80 7F 54 90 00 63 

7EftO 00 01 05 04 08 08 OS 05 24 

7Eft9 50 50 08 08 10 50 40 00 50 

7E60 05 05 08 08 04 05 01 00 24 

7EB8 00 40 50 10 08 08 50 50 50 

7EC0 00 OD 13 23 45 48 30 00 00 

7ECS 00 BO C8 C4 ft2 12 OC 00 FC 

7ED0 00 7D 83 83 7D 00 00 00 00 

7ED8 00 BE CI CI BE 00 00 00 FE 

7EE0 00 3C 24 27 27 24 3C 00 OE 

7EE8 00 3C 24 E4 E4 24 3C 00 88 

7EF0 00 OF 09 39 39 09 OF 00 ft2 

7EF8 00 FO 90 3C 9C 90 FO 00 38 

7F00 00 04 OE IB IB OE 04 00 Sft 
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7F08 18 18 3C DB 99 7E 7E 24 00 

7F10 00 20 70 08 08 70 20 00 DO 

7F18 00 04 OE 15 15 OE 04 00 4E 

7F20 19 18 3C E7 C3 7E 7E 24 36 

7F28 00 20 70 I°l8 A8 70 20 00 70 

7F30 10 08 10 08 10 00 00 00 40 

7F38 00 00 00 08 10 08 10 09 39 

7F40 18 18 18 18 00 00 00 00 60 

7F48 00 00 00 00 18 18 18 18 60 

7F50 11 OC 03 02 OF 10 01 06 48 

7F58 08 BO 40 FC B2 EO 18 04 fl2 

7F60 01 14 01 55 02 24 01 08 9ft 

7F68 10 80 24 40 AA 80 28 80 C6 

7F70 00 00 04 00 12 00 04 00 1ft 

7F78 00 90 00 40 00 08 40 00 18 

7F80 10 10 06 FE D6 10 00 00 Oft 

7F88 04 04 4C 54 64 44 40 40 DO 

7F90 08 10 30 10 10 18 10 20 BO 

7F98 18 20 40 48 58 48 50 20 DO 

7FftO 04 04 4C 54 64 44 40 40 00 

7Fft8 00 00 00 08 10 20 00 00 38 

7FB0 18 20 40 58 34 04 08 30 40 

7FB8 18 20 40 40 40 44 43 30 84 

7FC0 18 24 44 44 44 44 48 30 C4 

7FC8 18 24 44 48 50 68 44 40 04 

7FD0 OC 10 20 28 30 24 28 30 10 

7FD8 FF 00 E3 14 14 14 14 14 46 

7FE0 C7 08 93 24 48 4F 40 3F 9C 

7FEB F3 04 E4 02 01 BF 00 BF 5C 

7FF0 FC 00 F8 40 20 ftO 20 CO 04 

7FF8 00 00 00 00 00 00 00 00 00 
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7000 


21007E 


LO 


HL.7E00H 


7003 


1100F4 


LD 


DE.OF400H 


7006 


010002 


LO 


BC.0200H 


7009 


E0B0 


LDIR 




700B 


3E01 


LO 


A.01H 


700D 


CDB03F 


CALL 


3FB0H 


7010 


CDF070 


CALL 


70F0H 


7013 


2 1007 A 


LD 


HL.7A00H 


7016 


110044 


LO 


DE , 4400H 


7019 


010004 


LO 


BC . 0400H 


701C 


EOBO 


LDIR 




701E 


2100F0 


LO 


HL.OFOOOH 


7021 


1101F0 


LD 


DE.OF001H 


7024 


01FF03 


LO 


BC03FFH 


7027 


3606 


LD 


CHL),06H 


7029 


EOBO 


LOIR 




7026 


CDF014 


CALL 


14F0H 


702E 


2AAA40 


LD 


HL . ( 40AAH ) 


7031 


7C 


LO 


A.H 


7032 


E601 


AND 


01H 


7034 


C644 


ADD 


A.44H 


7036 


67 


LD 


H.A 


7037 


FE44 


CP 


44H 


7039 


2805 


3H 


Z.*+07H 


703B 


70 


LD 


A.L 


703C 


FE1B 


CP 


18H 


703E 


30EB 


3R 


NC,»-13H 


7040 


7E 


LO 


A.CHL) 


7041 


FE7F 


CP 


7FH 


7043 


2800 


an 


Z . *+OCH 


7045 


367F 


LD 


CHL) ,7FH 


7047 


11 00 AC 


LO 


OE.OACOOH 


704A 


19 


ADO 


HL.DE 


704B 


3602 


LD 


(HL) .02H 


704D 


1810 


OR 


*+12H 


704F 


E5 


PUSH 


HL 


7050 


01 


POP 


DE 


7051 


EB 


ex 


DE.HL 


7052 


010036 


LO 


BC . 3600H 


7055 


09 


ADD 


HL.BC 


7056 


7E 


LD 


A. CHL1 


7057 


12 


LD 


CDEKA 


7058 


EB 


EX 


OE.HL 


7059 


11 00 AC 


LD 


DE.OACOOK 


705C 


19 


ADO 


HL.DE 


7050 


3605 


LO 


(HL),05H 


705F 


C02B00 


CALL 


002BH 


7062 


FE30 


CP 


30H 


7064 


DA2B70 


3P 


C , 702BH 


7067 


FE3A 


CP 


3AH 


7069 


3808 


3R 


C.*+OAH 


7068 


FE53 


CP 


53H 


706D 


C22B70 


3P 


NZ.702BH 


7070 


C 38070 


JP 


7080H 


7073 


323C47 


LD 


C473CH) .ft 


7076 


0630 


SUB 


30H 


7076 


320042 


LD 


( 4200H ) . ft 


707B 


C32B70 


JP 


702BH 



Zaichanaatt van TBOOH 

nacfc F400H in dan Zaichaaapaichar 

varacbfabaa. 

; CHAK 2 ainachattaa. Arguaant 
la Ahku iat aa aiaa traraiadart. 
Untarpra.: Sounded sad IGR 
Adraaua dar Anraniat ratlk 
Adrtaaa Bildachiraantanf 
Amahl dar Brtaa 
Varachiabaa. 
Farbapaichar 
Farbapaichar *l 
La*B|a -I 

arataa Byta ait 06H balagaa 
I. Byta iuf t. ui», atbiabaa. 
Untarpri.: Zufallaiahl ari*u|an. 
Zabl la Klbolaa. 
MSB ia Akku 
Abba alrd OOH odar DIM 
Akku *ird 44Hodar 4SH 
laruach in USB. (HI • 4400H- 4SFFH) 
■inn MSB ■ 44H, 
dana aacb 7040M 
LUia Akku 
lanit » IBM 

Dana aaua Zabl ariaufaaji 
HI taifar aur Bildachiradraaaa 
laichaa auf HI • TrH T 



Ja 



aoaal TFH auf HL abapaicharn 

Orraat iuu Farbapaichar 

iu HL addiaran 

02K aur HL abipaicharg (roll 

Haltar bal 70SFH 

HI au( dan Stack 

DE turuacb 

•artaatchaa 

Orraat lur Anfaufafrarih 

iu HL addiaraa 

Orifinaliatchan dar AnraafairaNh 

ia dan Bilduchiraapaichar apaicharn 

Bildachiraadraaaa luruack aacb HL 

orraat ma Farbapaichar 

lu HL addiaraa 

02H aur HL abapaicbarn (fruan) 

Unt«rpr t .: GETCHF. (Taatatarabtraial 

( 30H ASCCO') 

■ana la, dasa Spruni iur Schlaira 

< 3AK ASC<*:*> 

laan }a, dana iu T073H 

»53H ASC('S') 

■ana alcbti daau tur Schlaiff 

Soaat Spial atartan 

aadruackta Zabl ia Rlldachira anxai|4n 

- 30H ar|lbt ainaa Bart ton 00H-09H 

in Variabla tuar Laval abapaicbarn 

■ad luruach iur Scblatta. 
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i •>• starter Des srteis ••• 



70S0 


210000 


LD 


HL.OOOOH 


7083 


220242 


LD 


C 4202H ) , HL 


7086 


3E07 


LD 


A.07H 


7083 


3201*2 


LD 


C4201H) .ft 


708B 


3A3C47 


LD 


ft,C473CH) 


708E 


0630 


SUB 


30H 


7090 


320042 


LD 


(4200H) ,A 


7093 


3E07 


LD 


ft,07H 


7095 


D3F8 


OUT 


(0F8H),fi 


7087 


3EFT 


LD 


F1.0F7H 


7099 


D3F9 


OUT 


(0F9H).(=I 


708B 


21E479 


LD 


HL.73E4H 


709E 


0606 


LD 


B.05H 


70FI0 


36B0 


LD 


CHL) .OBOH 


70fi2 


23 


INC 


KL 


70A3 


10FB 


03KIZ 


S-03H 


70ft5 


3E05 


LD 


ft.OSH 


7007 


D3F8 


OUT 


C0F8H) .ft 


70ftS 


3E03 


LD 


A.03H 


70fiB 


D3FS 


OUT 


C0F9H).ft 


70flD 


21D00T 


LD 


HL.0700H 


70S0 


220C42 


LD 


C420CH) ,HL 


70B3 


C38074 


OP 


7480H 



KL tea* lit Stirtpuaktiabl kali|an 
ia Yarlabla fuar ruaktiahl abapaichtra 
laablar Mr Paiadt jp mr 7 aatitaa 
Bad abapaiehara. 

Laval mt Bildacbiraaaaicbar bolao 
-30H 

in Variable ruar Laval abapaicbara 
OTK (SOURD7,2«7: 

I auf fort F6H achaltat Rautcbaa 
rTN auf Kmal 1 aja) 

■ ut Pari »H 



rattlickan Scbiftt, S nl 
OBON (tlaiaai Sckitn abai 



OSK 

ant Fort rSH (SOURD 3,3 : 

03H Fraquaai daa drittaa 

• of rert F9H Kami, vorbalataa) 

OTDDH > 2000D ala artta Graaia luar 

BoBuaachitf abapaiehara 

Spr*a| iva Bildati'ba* 



j *•• urterprograrh souRDorr urd lgr ■•• 



70F0 


3E07 


LD 


0.07H 




70F2 


D3F8 


OUT 


C0F8H) 


ft 


70F4 


3EFF 


LO 


ft.OFFH 




70F6 


03F9 


OUT 


(0F9H) 


ft 


70F8 


CDB038 


CftLL 


38B0H 




70FB 


C9 


RET 







OTB (SOURD T.253 : 

aur fort FRH alta Xaaaala 
OPTH abacbahaa) 

■uf fort rSH 
Raa-RButiaa fuir LGR 



; •" DRTeRrROGKARR PUER BEREGURG DER FEIRDE ••• 



7100 


DD218078 


LD 


IX.7880H 


7104 


ED4B0S42 


LD 


BC.C4208HJ 


7108 


D06E0O 


LO 


L.CIX+OOH) 


710B 


DD6601 


LD 


H,( IX+01H) 


710E 


7C 


LD 


ft.H 


710F 


B5 


OR 


L 


7110 


CAB371 


3P 


Z.71B3H 


7113 


3620 


LD 


(HL) .20H 


7115 


23 


INC 


HL 


7116 


3620 


LD 


CHL) , 20H 



IX anf Taballa dar Faiadpaaiiioaaa 

8C ait I-laaa ( iiB|iricttUDt Tarbalafi 

1 iat ISt dar Foaltiaa 

HiatKSBdir 
; RSR 

iOdariart ait LSI • T 
i Raaa )a, daaa aiiatiart Falad bicM 
i Erataa Bit* ait 20H (SPACE) laaachaa 
; uad 
; ivaitaa Byta abaaaa 
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7118 


2B 


DEC 


HL 


7119 


09 


AOD 


HL.BC 


711A 


0D5E02 


LD 


E.t IX+02H1 


711D 


1600 


LD 


O.OOH 


7I1F 


?e 


LO 


A.E 


7120 


FED8 


CP 


008H 


7122 


2002 


OR 


NZ.B+04H 


7124 


16FF 


LD 


D.OFFH 


7126 


13 


ROD 


HL.DE 


7127 


87 


OR 


ft 


7128 


280C 


OR 


Z.i+OEH 


712A 


FE28 


CP 


28H 


712C 


2805 


OR 


Z.t+07H 


712E 


OD3503 


DEC 


t IX+03H) 


7131 


1803 


on 


f+05H 


7133 


DD3403 


INC 


UX+03H) 


7136 


D07E03 


LD 


A.UX+03H) 


7133 


B7 


OR 


A 


713ft 


2004 


OR 


NZ.S+06H 


713C 


DD360200 


LD 


CIX+02H3.00H 


7140 


FE18 


CP 


18H 


7112 


2008 


OR 


NZ,i+OAH 


7144 


DD360200 


LD 


( IX+02H).OOH 


7148 


0D360300 


LD 


( IX+03H) .OOH 


714C 


HE847 


LD 


DE.47E8H 


714F 


DF 


RST 


18H 


7150 


3804 


OR 


C.J+06H 


7152 


U40FC 


LD 


DE.0FC40H 


7155 


13 


ADO 


HL.DE 


7156 


112844 


LD 


0E.4428H 


7158 


DF 


RST 


18H 


71SA 


3004 


OR 


NC.S+06H 


715C 


11C003 


LD 


DE . 03COH 


715F 


19 


ADD 


HL.DE 


7160 


0D7500 


LO 


C IX+00H3 ,L 


7163 


DD7401 


LD 


( IX+01H) ,H 


7166 


3A0142 


LD 


A.C4201H) 


7169 


E607 


AND 


07H 


7168 


07 


RLCft 




716C 


07 


RLCA 




716D 


C6B0 


ADD 


A. BOH 


716F 


5F 


LD 


E.A 


7170 


3A0A42 


LO 


A.C420AH) 


7173 


E602 


AND 


02H 


7175 


83 


AOD 


A.E 


7176 


77 


LD 


CHL) .ft 


7177 


23 


INC 


HL 


7178 


3C 


INC 


A 


7173 


77 


LD 


(HL5 ,A 


717A 


1 1 FFAB 


LD 


DE.OABFFH 


7170 


19 


AOD 


HL.DE 


717E 


3A0142 


LO 


ft. (4201H) 


7181 


3C 


INC 


A 


7182 


77 


LD 


CHL) .A 


7183 


23 


INC 


HL 


7184 


77 


LO 


CHL). A 


7165 


DD7E03 


LD 


A.C IX+03H) 


7188 


B7 


OR 


A 


7189 


2013 


OR 


NZ.1+1SH 


7188 


CDF014 


CALL 


14F0H 


7iee 


3FI0042 


LD 


A.C4200H) 


7191 


5F 


LD 


E.A 



HI itirvack iuf aratai ftyla 
X-Hichtuni addiaraa 
EUt LSBdar Y-Ricatwai 
D loaacbaa 
l» id Akka 

■ OOoH I <■ -400) 

■ill, •• lit OOH adar 2BK (• *om 

■ onit HSB • OFFH ruar Addition 
Y~Ricktunf, lur Poaition addiaraa 
V-Hkhlinti « T 

■■■a ja, din* nack T13SM 

• *40D1 

•ma Ja, daan aack T133H 

aoaat Y-Bt»|imi«»«klfr -I 

and aackTISCH 

Y~Ba*ag.ua|aiaablar *l 

Y-Ba*a|ua|aiaaklar iii Akka 

Flafa aatica 

(Id «■>■ lick TUOH 

•onit LSB dar Y-Kicktuaf loaackaa 

• 1SK 

mi eickt, daaa Bach TUCK 

• onit LSB dar Y-Richtuaa 

und Y-BaaagunBBiaablar loaackaa 
Adraaaa *oa Bildachiraanda *1 

• It HL aarilalckaa (Foiltlool 
■■■■ HL ( DC daaa aach TI5CN 

■ onit OFC40K <■ -BCOD) tar Foaitloa 
addiaraa. (Kl" tvaita Blldtchirattlla 
Adraaaa dar 2. Bildachiraialla la DE 

■ it HL var|taickan 

una HL >• BE diaa aacb TI60H 

aoaat O3C0H (• 960D) lur Poaition 

addiaraa. (HL* latita Biidacbiraiaila) 

LSB dar Faaltioa mruaek ia Taballa 

KSB abanao 

Faindlyp ia Akka 

aur von OOH bia 07K lugalaaaaa 

2 nal tiaka ratlaraa 

d.h. ait 4 aultipliiiaraa 

• BOH trilbt aratat Zaichaa daa Falada 
ia I twiiebaaapaickara 

laaklar in daa Akka 

ait 02K uadiaraa. <(ibt OOH odar OZH> 

E addiaraa, tr|lbt Fhaaa daa Painda 

auF Peiitioa abapaickara 

aaackata Foaitjon 

naackataa laicbaa 

abapaickara. Faind atnnt ia Bildaeblrn 

Orritt iua Parbaptichar -I <*a|aa IKC) 

fur Foaitioa addieran 

Faindtyp 

+1 ala Farbeoda 

ia daa Farbapaicbar ablat.au 

aad 

•of dar naackataa Adraata 

Y-Bawa|«a|aiaahlar la Akku 

Flaga aatiaa 

1 daan aack TI9EH 

Zufallaiahl anauiaa 

Laval ia Akku 

ia E taiackaaapakkara 
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N 



7192 


3RAA40 


LO 


R,C40flftH) 


7195 


BB 


CP 


E 


7196 


3004 


OR 


NC,*+06H 


7198 


DD360228 


LD 


CIX+02H>,2 


713C 


1815 


OR 


S+17H 


719E 


D07E02 


LO 


ft.(IX+02H> 


71R1 


FE28 


CP 


28H 


71A3 


200E 


OR 


NZ.9+10H 


71ft5 


CDF014 


CALL 


14F0H 


71R8 


3ftftft40 


LD 


ft.C40ftflH) 


71ftB 


FE01 


CP 


01H 


7IA0 


3004 


OR 


NC.5+06H 


71AF 


0D3602D8 


LO 


( IX+02H3 ,0 


7183 


1 10400 


LD 


DE , 0004H 


71B6 


DO 19 


ADD 


IX, OE 


71B8 


DO 


OEFB 


ODDH 


71B9 


70 


LD 


FI.L 


71BFI 


87 


OR 


R 


718B 


C 20471 


OP 


NZ.7104H 


71BE 


C9 


RET 





28H 



0D8H 



IgFaHaiihl in Akka 

■ it Laval var|lo£ckaa 

••ib Zakl ) Laval dial nick T19CK 

2BH (• »40D) in Y-Rkbtuni abapatckara 

undnacn TIS3K 

Y-AlcktuBi ia dan Akku 

•2>H('«400) 

WBBB nicht, dBOB BICk 718311 

Zu r allaiabl anautan 

laklia Akku 

( OIH (koaaaaa SU aaadtrat 

•tan nicht, daan nick 71B3H 

■mil ODSH (> -40DI ia Y-RlchtUB| 

0004K fiiar 4 Taballanplaalia 

ill IX addiarta 

DD7D iit ain Bondirbatabl, dar dat 

LSS von IX in dan Akku laadt. 

Ilaici t (sai IX • 790010 

alio ? dann naacaataa Faind btaafta 

loaat auruack 



i ■>■ UmNrROGRAMI IUP AERDERURG OER X-RICHTUNG »*• 



r 



71C0 


3E08 


LD 


A.08H 


71C2 


03F8 


OUT 


(0F8HJ.R 


71C4 


DBF9 


IN 


A.(0F9H) 


71C6 


87 


on 


ft 


71C7 


2801 


OR 


Z.J+03H 


71C9 


3D 


DEC 


ft 


71CR 


D3F3 


OUT 


C0F9H) .ft 


71CC 


212844 


LD 


HL.4428H 


71CF 


112800 


LD 


DE , 0028H 


71D2 


0616 


LO 


B, 16H 


7104 


7E 


LO 


ft, CHL) 


7105 


FE20 


CP 


20H 


7107 


2005 


OR 


NZ.*+07H 


71D9 


19 


RDD 


HL.DE 


710ft 


10F8 


DONZ 


S-06H 


71DC 


1806 


OR 


I+08H 


710E 


210100 


LD 


HL.0001H 


71E1 


220842 


LO 


(4208H) .HL 


71E4 


214F44 


LD 


HL.444FH 


71E7 


0616 


LD 


B. 16H 


71E9 


7E 


LO 


ft, CHL) 


71EA 


FE20 


CP 


20H 


71EC 


2004 


OR 


NZ . *+06H 


71EE 


19 


RDD 


HL.DE 


71EF 


10F8 


D3NZ 


S-06H 


71F1 


C9 


RET 




71F2 


21FFFF 


LO 


HL.OFFFFH 


71F5 


220842 


LD 


C4208H) ,HL 


71F8 


eg 


RET 





OBH 

aut fori ran 

Fort F9H ia din Akku Uautitaarka II 

riagi aatian 

ichaa T daaa Back 71CAH 

aoaat -1 

und aut Tort P9K uiadar aui|ab«a. 

HI aut I. Bjla, 2. BHdichiriiaila 

DE - 2BH <• *40D) 

B • 1SH (> 20D) all Iiablar dar Zailan 

Zaichaa ana d*a Rildackin ia Akku 

• ZOH (SFACE) T 

*aon aicbt,dann aacli 71DEH 

•on it HL • HL » 40D (naachata Zaila) 

Zaahlar -I nicht T dann nach 7ID4H 

aoaat nick 7IE4H 

»l I. nack racbU) 

ia Variabla ruar X-Hicktunf 

HL aur 39. Bita in Z. Bildicblrmlla 

B *20D 

Zaichaa in Akku 

■ ZOH (SfACt) T 

■ann sickt, dann aach 7IPZH 

HL ■ ML t 40D 

aaackataa Zaickaa laalaa 

und mrutek 

-I <■ sack linka) 

in Variabla filar K-RicbtiiB( 

und luruack 
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; ■•■ MAurrscHLEtre *»• 



7200 


3A0A42 


7203 


3C 


7204 


320A42 


7207 


C00071 


720A 


CDC071 


720D 


C03874 


7210 


3A40F8 


7213 


E620 


7215 


2901 


7217 


26 


7219 


3A40F8 


721B 


E640 


7210 


2S01 


72 IF 


23 


7220 


7D 


7221 


FE38 


7223 


2001 


7225 


23 


7226 


FE8C 


7228 


2001 


722A 


2B 


722B 


220642 


722E 


C05O74 


7231 


3A40F8 


723a 


E680 


7236 


2S03 


7238 


CD7072 


723B 


C08073 


723E 


3A40F8 


7241 


FE06 


7243 


CA0070 


7246 


3A0B42 


7249 


B7 


724A 


C200T2 


724D 


C38074 



LD 


A, C420AH) 


INC 


A 


LD 


C420AH) .A 


CALL 


710OH 


CALL 


71C0H 


CALL 


7438H 


LO 


A, C0F840H) 


AND 


20H 


OB 


Z.»+03H 


DEC 


HL 


LD 


A.C0F840H) 


AND 


40H 


OR 


Z.J+03H 


INC 


HL 


LD 


A,L 


CP 


9SH 


OR 


NZ.J+03H 


INC 


HL 


CP 


OBCH 


OR 


NZ . S+03H 


DEC 


HL 


LD 


C4206HKHL 


CALL 


74S0H 


LO 


A. C0F840H) 


AND 


80H 


OR 


Z,*+05H 


CALL 


7270H 


CALL 


7380H 


LD 


A.(0F84OH) 


CP 


06H 


OP 


Z.7000H 


LD 


A.C420BH) 


OR 


A 


OP 


NZ.7200H 


OP 


7480H 



Zaahlar it Akku 

♦1 

■iadtr abapaicharn 

Untarpra,.: TainAbawafiigi 

Uatarpra;.: X-RkkUnf 

Unt»rpr|.: SckUt loaichan 

Taataturipaicbar in Akku 

Bit 9 iaaliaras (Hail tack IJaka) 

nJekt (•••lit T dann nach 72ISH 

aoaat 3cl>i(t<-Fof ition -I 

Taataturipaicbar in Akku 

lit C (Hail ritck racats) 

nlcbt (aaalit T dmn nick T220H 

tout Scbitta-Foiition ♦! 

LSB dir Position in Akku 

> S9H T (llnkir Rind) 

■una aicht, Buck 7226H 

*on*t Position ♦] 

' BCH T (rtehtir Rind -4) 

winn nicht, nach 722BH 

• ontt foiltlon -1 
Paaition ajadsr tbtpticbirn 
Untirprii: Sckift und Fnrba totian 
Ttittturtpticbir in Akku 

Bit 7 

alekt iMitit 7 dann nick 723BH 
Untsrprf.: 3cku<i inltialisiaran 
Itatarprf.: Schuilt* und Explosion* 
Taitaturapaichsr in Akku 

• 06 H (BREAK I CLEAR) 7 
nan j>, iub frs|raaittirt 
Aniihl dar varbliabaatA Faiadt 
n.ii nlun 

iibb 1) dann mr Kauptacfclaifa 
taaat naaehstar Laval 



( •*« JCHUSS IBITIAMSIEREI **" 



7270 


217078 


LD 


HL.7870H 


7273 


7£ 


LD 


A.CHL1 


7274 


23 


INC 


HL 


7275 


B6 


OR 


(HL) 


7276 


2807 


OR 


Z.S+OSH 


7278 


23 


INC 


HL 


7279 


70 


LO 


A.L 


727A 


FEBO 


CP 


BOH 


727C 


20F5 


OR 


NZ.$-09H 



AikTit.| dar SchuaapoaitJoriMftbtL-li 

LSB in Akku 

adariart tit MSB 

- TtjiBfl naeh 72TFH 

Btichsti TabilttapotttJad 

LSB dii l*i|«ri in Atiliu 

* 80MT (HL « 7S80H) 

•«bb BJchti dann ■■en. 7273 H 
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727E 


C9 


RET 




T27F 


2B 


DEC 


HL 


7280 


EB 


EX 


DE.HL 


7281 


2R0642 


LD 


HL.C4206H) 


7284 


01D9FF 


LO 


BC0FFD9H 


7287 


09 


ROD 


HL.BC 


7288 


ES 


EX 


DE.HL 


7289 


73 


LD 


CHD.E 


728ft 


23 


INC 


HL 


728B 


72 


LD 


CHL) .0 


728C 


ES 


EX 


DE.HL 


7280 


36A6 


LD 


CHL) .0A6H 


728F 


1 1 00AC 


LD 


DE.OACOOH 


7292 


19 


ADO 


HL.DE 


7293 


3603 


LD 


(HLJ.03H 


7295 


C9 


ACT 





iitruack, All* Schuaaaa baltgt 

HI .i.dtr tuf ISB 

ill DE 

SchiFfspotition 

PFD9K(- -390) 

addiaran. roaitioa liabar daa Scbill 

wiadar vartautchan 

ISB in Tiballa 

oatcbtta Adraata 

■ SB abapaicbara 

Poaitioa wiadar ia KL 

A6H iat daf. Zaichaa f«*r Schuaa 

QHaal iaa rarbapaichar 

addiaraa 

sad alt 3 balaiaa 

luruick 



; ••• exriosioi uhtialisiekei ukd feiho ioeschen ••• 



7298 


E5 


PUSH 


HL 


7299 


FD2 15078 


LD 


IY.7850H 


729D 


FD6E00 


LD 


L.CIY+OOH) 


72A0 


FD6601 


LD 


H.CIY+01H) 


7203 


7C 


LD 


ft.H 


72R4 


BS 


OR 


L 


72R5 


2812 


OR 


Z.1+14H 


72A7 


F023 


INC 


IV 


72R9 


FD23 


INC 


IY 


72fl8 


FD23 


INC 


IY 


72RD 


FD 


DEFB 


OFDH 


72AE 


70 


LD 


R,L 


72RF 


FE68 


CP 


68H 


72B1 


C29072 


OP 


N2.729DH 


72B4 


El 


POP 


HL 


72B5 


210000 


LD 


HL.OOOOH 


72B8 


C9 


RET 




72B9 


El 


POP 


HL 


72Bl=l 


7E 


LD 


A. CHL) 


72BB 


E601 


AND 


01H 


72B0 


2801 


OR 


Z.J+03H 


72BF 


2B 


DEC 


HL 


72C0 


FD7500 


LO 


CIY+OOH) ,L 


72C3 


FD740I 


LD 


C IY+01H) ,H 


72C6 


F0360200 


LO 


CIY+02H3 .OOH 


72Cfl 


E8 


EX 


DE.HL 


72CB 


FD216078 


LO 


IY.7B80H 


72CF 


F06E00 


LD 


L.( IY+00H) 


7202 


FD6601 


LD 


H.CIY+OIH) 


72D5 


OF 


RST 


18H 


7206 


280E 


3R 


Z.J+10H 


72D8 


010400 


LD 


BC . 0004H 


72DB 


FD09 


ADO 


IY.BC 


72D0 


FD 


DEFB 


OFOH 


72DE 


70 


LO 


R.L 


72DF 


B7 


OR 


R 


72E0 


20ED 


JR 


NZ.J-11H 



Tratfarpoaitjoa rattan 

[V tuT Taballa dar Eiploiiontd 

L3B in L 

MSB in H 

USB 

odariart ait LSB 

■ Tdtno nach 72B9H 

■onit drai Taballanpliatia vaitar 



Soj>d#rbtr*hf ID A, LSB »Y» 

* 68H (IY - 786SH) T 

linn nicht, dann nach 7290H 

Stack korrigfaraii 

aaacbtt* Schmipoiitian ■ 

und luruack 

Tr*fr<rpoiitioa mruaek in HL 

t«lrorr«n*a Zaichan in Akku 

■it OlH unditran* Bai Erfibait iat 



tontt KL dacramflntiran 

LSB dar Pgcition in Taballa ablagin 

■ SB abaato. 

Exploiioniiaanlar iut aattan 

Fotttiaa ia DE i*tf chaatpaiebaro 

IY auf foatioaitaballa dar Fainda 

LSB dar Petition in L 

MSB in H 

Vatr|laich ait Trtffnrpqittioo in DE 

ftaich I dann nicb 72E6H 

tontt IY «4 

tddiaran 

LSB von IY in Akku 

Flaga lalian 

7 dann nteh 72CFH 



77 



72E2 


210000 


LD 


HL.OOOOH 


72E5 


C9 


RET 




72E6 


3620 


LD 


(HL>,20H 


72E8 


23 


INC 


HL 


72E9 


3620 


LD 


CHD.20H 


72EB 


210000 


LD 


HL.OOOOH 


72EE 


F07S00 


LD 


(IY+OOH) ,L 


72F] 


FD7401 


LD 


(IV+01H) .H 


72F4 


2ft0242 


L0 


HL.C4202H) 


72F7 


3A0042 


LD 


ft,(4200H) 


72Fft 


07 


RLCfl 




72FB 


3C 


INC 


ft 


72FC 


5F 


LD 


E.ft 


72F0 


1600 


LD 


D.OOH 


72FF 


19 


PiDD 


HL.DE 


7300 


220242 


LD 


C4202H).HL 


7303 


3ftOB42 


LD 


A,t420BH) 


7306 


3D 


DEC 


1=1 


7307 


320842 


LD 


(4Z0BH).fl 


730ft 


210000 


LD 


HL.OOOOH 


730D 


3E08 


LD 


ft.OBH 


730 F 


D3F8 


OUT 


COF8H3 ,ft 


7311 


3E0F 


LD 


ft.OFH 


7313 


03F9 


OUT 


tOFSH) .ft 


T315 


C9 


RET 





Iiichiti 5chuaapoaitloa (laich 
itimacli, k*in Faind latrorfan 
Faind ia BJIdtcbira taatchan 

ivaJtaa Byta Loaachta 

la FoaltJonataballa dar ftiodi 

■cnraibaa, Dar antapracaaada Faiad 

iat lalaaacht 

ruBkttihl in hi 

Laval la Akku 

*2 

«l 

nach E apaichara 

D loaachan 

DE iur Funktiahl addiaraa 

uad wiadar abapaichara 

Aaiahl dar varbliabaaan Faiada in Akku 

-1 

■jadar abapafcham 

aachata Schuaapaaition glatch 

01H (SOUND 1, 15: 

auf Fort FBH Lautataarka von Kanal 

OFH lauFiaiiaua aatzan) 

■ uf Fort FBH 

tad aaruack 



; ••• AU5GABE EIHER IAHL »•• 



7320 


3E30 


LD 


A.30H 


7322 


3C 


INC 


A 


7323 


09 


ADO 


HL.BC 


7324 


39FC 


3R 


C.*-02H 


7326 


3D 


DEC 


ft 


7327 


ED42 


SBC 


HL.BC 


7329 


12 


LD 


(DE) .ft 


732A 


13 


INC 


DE 


732B 


C9 


RET 




732C 


D5 


PUSH 


DE 


732D 


ED5B0C42 


LD 


0E.(420CH) 


7331 


DF 


RST 


18H 


7332 


381ft 


3R 


C.i+ICH 


7334 


EB 


EX 


OE.HL 


7335 


01D007 


LD 


BC.07D0H 


7338 


09 


ftDD 


HL.BC 


7339 


220C42 


LD 


(420CH) .HL 


733C 


EB 


EX 


DE.HL 


733D 


11E479 


LD 


DE.79E4H 


7340 


1ft 


LO 


ft, IDE] 


7341 


FEBO 


CP 


OBOH 


7343 


2006 


OR 


NZ.S+08H 


7346 


13 


INC 


DE 


7346 


7B 


LD 


fl.E 


7347 


FEEE 


CP 


OEEH 


7349 


20F5 


3R 


NZ.S-03H 


734B 


3EB0 


LD 


ft, OBOH 


7340 


12 


LD 


C DE ) , ft 



30M ■ ASC("0"> ia Akku 

♦ I 

HL » HL t BC <BC - -10000,-1000 aaw,) 

■aaa Carry gaaalit dana waitar 

aoaai Akku -t 

HL * HL - BC 

Akku auf Adraaai (DE> abapatcharo 

DE aut aaacbita roaltion 

mruack 

Adraaaa filar Auagaba dar lahl rattan 

FuafctiaM tuar tonuttcallt nach DE 

alt Funktiaal varglaichan 

lann iraaaaari dana nach 734EH 

Boauapuattiahl niih HI 

OTDOM ■ 2O0OD 

addjann 

uad abtpaicnarn 

Ftinkttah) luruack nach HL 

DE auf Foaition dar ScftiffaaQI alga 

Zalchan in Akku 

tajchaa fu.r ScaifM 

>>an nickt, dann nach T3IEK 

aaachata Foaition 

LSB ia Akku 

• EEH t iHiar baglaat 'HIGH-SCORE.. 1 ) 
■ana nicht, dian nach 73lOH 
laicnan tuar Scbift In Akku 

auf DE abapaicharn 
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734E 


Dl 


734F 


01F0D8 


7352 


CD2073 


7355 


0U8FC 


7358 


CD2073 


735B 


019CFF 


735E 


CD2073 


7361 


01F6FF 


7364 


CD2073 


7367 


01FFFF 


736ft 


C02073 


7360 


21D879 


7370 


110041 


7373 


012800 


7376 


EDBO 


7378 


C9 



POP 


DE 


LD 


BC008FOH 


CftLL 


7320H 


LD 


BC.0FC18H 


CALL 


7320H 


LD 


BC0FF9CH 


CALL 


7320H 


LO 


BC0FFF6H 


CALL 


7320H 


LD 


BC.OFFFFH 


CALL 


7320H 


LD 


HL.7908H 


LD 


DE.4400H 


LD 


BC.0028H 


LOIR 




R6T 





1 Adrmi iuar Auagabi turuack 

i BC ■ -10000 

i Stall* barachnaa 

;BC (-1000 

i Stall* barachnan 

(BC --100 

; Stall* barachnaa 

; BC • -10 

i Stalla barachnan 

; BC • -1 

; Stalla baracbnan 

; Adraaaad*r Amiabaaaila 

i aratt Bildachiraiaila 

; 40 Zaichan 

i hopiaraa 

; und auruack 



i ••• i)mnrno6K*Kn schubsse uhd emosioiie« BEieeea •>• 



7380 


DD2 17078 


LD 


IX.7870H 


7384 


DD6E00 


LD 


L.UX+OOH) 


7367 


DD6601 


LD 


H.CIX+01H) 


7380 


7C 


LO 


A.H 


738B 


B5 


OR 


L 


738C 


2836 


OR 


Z.J+38H 


738E 


7E 


LD 


A.(HL) 


738F 


FEAO 


CP 


OAOH 


7391 


381A 


OR 


C.*+1CH 


7393 


3620 


LO 


CHD.20H 


7395 


11D8FF 


LD 


DE.0FFD8H 


7398 


19 


ADD 


HL.OE 


7399 


112844 


LD 


DE . 4428H 


739C 


DF 


RST 


18H 


7390 


3005 


OR 


NC. *+07H 


739F 


210000 


LD 


HL , OOOOH 


73A2 


1814 


OR 


S + 16H 


73A4 


7E 


LD 


A, EHL) 


73A5 


FE80 


CP 


80H 


73A7 


3807 


JR 


C,*+09H 


73A9 


FEAO 


CP 


OAOH 


73AB 


3003 


OR 


NC.J+05H 


73A0 


CD9872 


CALL 


729BH 


73B0 


3A0A42 


LD 


A, (420AH) 


73B3 


E601 


AND 


01H 


73B5 


C6A6 


ADD 


A . 0A6H 


73B7 


77 


LD 


(HLKA 


73B8 


DD7500 


LD 


C IX+OOhU .L 


73B6 


DD7401 


LD 


( IX+OIH) .H 


73BE 


1100AC 


LD 


DE , OACOOH 


73C1 


19 


ADD 


HL.DE 


73C2 


3609 


LD 


CHL) ,09H 


73C4 


DD23 


INC 


IX 


73C6 


D023 


INC 


IX 


73C8 


OD 


DEF8 


ODOH 


73C9 


7D 


LD 


A,L 


73CA 


FE80 


CP 


80H 



i IX »uf Taballa dar Schuana 

i 1SB dar toaition nach L 

; MSB nach H 

; USE 

i sdariarl (it UB 

i > Tdana nacb 73C4H 

; Zaichan auf Schuaapotition 

; < AOH T 

; vein j*! dann nach 73ADH 

; Schun loaichan 

;-400 

; lur roaition addiaran 

i 2. Bilachlrntaila 

; ait Faaition Targlaichan 

; vann grnaaaar dann nach 73A4H 

; aonat naachata 3cbuiipo»Hion (laich 

i nnd nach T3BSH 

{ Zaichan auf nauar Foaition in Ahhu 

; ( BOH t (ain. dar Zaichan fuar Faindft) 

; nana Jt, dana aach T3B0H 

; >• AOHT<aai.) 

; nana aicht, dana nacn T3B0K 

i Unturpra..: Eiploaion Initialiaiaran 

; Zaahlar ia Akku 

; ait 01H undiaraa {argibt adar 1) 

i * A6H (ar(ibt Zaicban Iuar Schuaa) 

i auf nauar roaition abapaicharn 

; LSB Scbuaapoaition aiadar la Jaballa 

, MSB ahanao 

j Otfaat lua Parbapaichar 

p addiaran 

; und ait 09H bala|an 

I Tab*ll*niai(*r <2 

i LSB voa IX in Akku 

;<SOH (IK ■ 7BB0H) 
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73CC 


C28473 


DP 


NZ,73B4H 


73CF 


DD2 15078 


LD 


IX.7850H 


73D3 


DD6E00 


LD 


L.CIX+OOH) 


73D6 


D06601 


LD 


K.CIX+01H) 


73D9 


7C 


LD 


ft,H 


73DA 


B5 


OR 


L 


7306 


2828 


JR 


Z . *+2AH 


73DD 


DD7E02 


LD 


A.CIX+02H) 


73E0 


07 


RLCPl 




73E1 


C6AA 


aoo 


A . OftftH 


73E3 


F£B0 


CP 


OBOH 


73E5 


2008 


JR 


NZ.I+OAH 


73E7 


3620 


LO 


CHD.20H 


73E9 


23 


INC 


HL 


73EA 


3620 


LO 


tHL) ,20H 


73EC 


210000 


LO 


HL.OOOOH 


73EF 


DD7500 


LD 


CIX+OOH) ,L 


73F2 


007401 


LO 


( IX+01H) ,H 


73F5 


77 


LD 


(HL3 .A 


73F6 


23 


INC 


HL 


73F7 


3C 


INC 


A 


73F8 


77 


LO 


(HL).ft 


73F9 


11FFAB 


LD 


DE.OABFFH 


73FC 


19 


ADD 


HL.DE 


73FD 


D609 


SUB 


09H 


73FF 


77 


LO 


CHL) ,A 


7400 


23 


INC 


HL 


7401 


77 


LD 


(HL) .ft 


7402 


D03402 


INC 


CIX+02H) 


7405 


D023 


INC 


IX 


7407 


D023 


INC 


IX 


7409 


0023 


INC 


IX 


740B 


00 


OEFB 


OOOH 


740C 


7D 


LD 


fi.L 


7400 


FE68 


CP 


68H 


740F 


C2D373 


JP 


NZ.7303H 


7412 


2R0242 


LD 


HL.(4202H5 


7415 


11DE79 


LO 


DE.79DEH 


7418 


C02C73 


CRLL 


73ZCH 


741B 


2R0242 


LD 


HL, C4202H) 


741E 


ED5B0442 


LO 


0E.(4204H3 


7422 


OF 


RST 


18H 


7423 


3809 


3R 


C.*+OBH 


7425 


220442 


LD 


C4204H) .HL 


7428 


11FB79 


LO 


0E.79FBH 


742B 


CD4F73 


CALL 


734 FH 


742E 


C9 


RET 





vinn nicbti men 7384H 

IX auT Tabella dar Eiplovionaa 

IS! dtr Faaition in I 

Hit in II 

MSB 

odarttrt mil LSI 

• 7 dan* nch 7409H 
Eiplaaioniiaahlar in Ahku 
•2 

♦ AAH (Itickan dtr Eiplaiianan) 
> BOH 7 (Elptoaion luindi) 
<iiii nicKt , aacb 73EFK 
Eiploiion toiichUB 

•*aitai Bjt« leaiekan 
Foiition flaick 
■iadar abapaichara 

ZakhlB auf Eiploiian abapalcfeara 

aaachita Adrim 

naachntat Zaicbaa 

abtptichara 

Oftnl tun Farbapaichtr -I <■•!« IRC) 

lur FoaitiDB addiarai 

Ztiebanaarl -9 ar|ibt Parba (2,4od. SI 

in dan Farbapaichar ablagan 

und 

iitf dia aaachita Adrian 

Exploaionixaahlar +1 

TaballaniaaMar *3 



LSB von IX in Akku 

■ 6BH 1 (IX • 7BGIK) 

■ann nickl, natcbtta tiploaioa 

runxluhl 

auf 790EH <Auaa.abaialla) 

barachnan und auafaban 

Funbtiabl 

und battaa Crfabnia 

varilajcbia 

•ann fuaktiahl kltiaar,daaB Back 742KK 

■ onat ala baataa Ertabala abipalebarn 
und aur T9PBH <Autn;abaiaila) 
baracbnaa und auagabaa 

mruack 



; *»* UMTERrROGRAIIll SCHIPF TESTE! UND 10ESCHEI •«• 



7438 


2R0642 


LO 


HL.C4206H) 


743B 


0603 


LD 


B.03H 


7430 


7E 


LO 


ft. CHL) 


743E 


FEAO 


CP 


OAOH 


7440 


3809 


DR 


C.*+OBH 


7442 


3620 


LD 


CHL) . 20H 



i Scbirnpoiition in HI 
( Iithlir tuar Amanl dar Bjttl 
i Zaichan aua Bitdachirm in Akku 
; t *0H 7 <f ahoarl xu Faindaa) 
; wann ja, dann nacb 744BH 
( tontt loaichin 



80 



7444 


23 


INC 


HU 


744S 


10F6 


DJNZ 


»-08H 


7147 


2B 


DEC 


HL 


7448 


2B 


DEC 


HL 


7449 


2B 


DEC 


HL 


744R 


C9 


RET 




744B 


Fl 


POP 


OF 


744C 


C33075 


3P 


7530H 



; aaachttti Bjta 

i illt |ttutit t ftnA nicbt. n*ch 743DH 

; HL tladar *UT dJ* foiltion dil 

; iritin ZaLcbana brinian 

i und turuack 

; Stick horri|L*r*n 

j Untcrpri*: KKploaioa dna Scbiffat 



• **> SCHirr 1110 PARBEH SETZEN **• 



7450 


06R0 


LD 


B.OROH 


7452 


3ft0R42 


UO 


ft, C420RH) 


7455 


£601 


RNO 


01H 


7457 


2802 


JR 


Z,*+04H 


7459 


06R3 


LD 


B.0R3H 


745B 


76 


LD 


ft.B 


745C 


77 


LD 


CHL) ,ft 


745D 


23 


INC 


HL 


745E 


3C 


INC 


R 


745F 


77 


LO 


CHL) ,R 


7460 


23 


INC 


HL 


7461 


3C 


INC 


ft 


7462 


77 


LD 


CHL) .R 


7463 


11FERB 


LD 


DE.0A6FEH 


7466 


13 


ROD 


HL.DE 


7467 


3606 


LD 


CHL J .06H 


7469 


23 


INC 


HL 


746ft 


3602 


LD 


(HL) , 02H 


746C 


23 


INC 


HL 


746D 


3606 


LO 


CHL) .06H 


746F 


C9 


BET 





i AOH itt trail Phua dat SchJff*i 

; ZvthUt in Akku 

; undiaran mit 01H (argibt odtr U 

i ■ Tdann nacb 745BH 

• t iftfltt A3H in H fiviit* Hiatal 

i B io Akku 

i auf Sthiff*po»ition 

i naachiti Adrattt 

; naachi tat Zaichan 

; ibtptkhim 



» aaaehataa Zaichan 

f abapaicharn 

i Offtat iub Farbapaicbar -2 

i tur FosJtion additran 

; OGH abapaicbarQ <oranga) 



; 02H abapaieharn (roO 
y a tat hit* Adraiaa 
; 06H abapaichara (aruia. 
; und Zuruack 



i "* B1LDAUFBAU DMD SFULSTAKT *" 



7480 


210044 


LD 


HL.4400H 


; Erata Bildichirapoiitioa 


7483 


110144 


LD 


DE.4401H 


; Zwtita Bildtchinpoaitjon 


7486 


01FF03 


LD 


8C.03FFH 


; Bildicbiralaanga -1 


7489 


3620 


LD 


CHL) .20H 


; 20K «ur arataa Zaichan (SfACBI 


748B 


EDBO 


LOIR 




j L Zaichan auf 2. achiaban ui*. 


748D 


21D879 


LO 


HL.79D9H 


■ t Auifabaiaila 


7490 


110044 


LD 


0E.4400H 


■ t auf arata flildaehiraiaila 


7493 


012800 


LD 


BC.0028H 


; 400 Zaichan 


7496 


EDBO 


LDIR 




; acbiabaa 


7498 


210078 


LD 


HL.7800H 


; "arban dar arataa Zalli 


749B 


1100F0 


LD 


DE.OFOOOH 


; in dan rarbaptichnr 


749E 


012800 


LD 


BC.0028H 


; 40DBftaa 


74R1 


ED60 


LDIR 




j achiaban 


74R3 


3R0142 


LD 


R, (4201H) 


; Faiadt yp in Akbu 


74R6 


3C 


INC 


ft 


;*i 
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741=17 


£607 


AND 


07H 


74A9 


310142 


LD 


C4201H) ,A 


74AC 


21AB47 


LD 


HL.47ABH 


74AF 


220642 


LD 


C4206H) ,HL 


74B2 


210079 


LD 


HL.7900H 


74B5 


118078 


LD 


DE , 7880H 


74B8 


018000 


LD 


BC.0080H 


74BB 


EDBO 


LDIR 




74B0 


210100 


LD 


HL.0001H 


74C0 


220642 


LO 


C4208H) ,HL 


74C3 


2 1 5078 


LD 


HL.7850H 


74C6 


115178 


LO 


DE.7851H 


74C3 


012F00 


LD 


BC.002FH 


74CC 


3600 


LO 


CHL) ,00H 


74CE 


EDBO 


LDIR 




74D0 


3E20 


LD 


A.20H 


7402 


320B42 


LD 


(420BH) .A 


7405 


3B0042 


LO 


A.C4200H) 


T4D8 


3C 


INC 


A 


7409 


320042 


LO 


C 4200H ) , A 


74DC 


212878 


LD 


HL . 7828H 


74DF 


1 13C46 


LD 


DE.463CH 


74E2 


011000 


LD 


BC0010H 


74E5 


EDBO 


LDIR 




74ET 


2A0642 


LD 


HL. C4206H) 


74£pi 


C05074 


CALL 


7450H 


74ED 


3EI8 


LD 


A, 18H 


74EF 


32S971 


LD 


C7189H) .A 


74 F2 


060C 


LD 


B.OCH 


74 F4 


CS 


PUSH 


BC 


74FS 


CD0071 


CALL 


7100H 


74F8 


CDC071 


CALL 


71C0H 


74FB 


213CF2 


LD 


HL.0F23CH 


74FE 


1130F2 


LO 


0E.0F23DH 


7501 


010FOO 


LO 


BC.OOOFH 


7504 


ED5F 


LD 


A,R 


7506 


77 


LO 


(HL) ,A 


7507 


EDBO 


LDIR 




7509 


010018 


LO 


BC. 1800H 


7SOC 


CD6000 


CALL 


0060H 


750F 


CI 


POP 


BC 


7510 


10E2 


DJNZ 


1-1CH 


7512 


3E20 


LO 


A.20H 


7514 


328971 


LD 


( 7 1 88H ) . A 


7517 


213C46 


LO 


HL.463CH 


751A 


113046 


LD 


DE.463DH 


751D 


010F00 


LO 


BC.OOOFH 


7520 


77 


LD 


(HL) ,A 


7521 


ED60 


LOIR 




7523 


C30072 


3P 


7200H 



■ it Q7H undiaran tnur 0..7 mgal.) 
uad niadar abapa icbarn 
Schiffipofltion, Torlatzta 7 ■ ilv^M i 1 1 a 
abipt icharn 

TabalLa dnr FaindpQtittonan 

in di* Arbaitatabatli 

1280 Bytag Ifiiar 32D Fainda) 

fcchiaban 

X-FieMunf (O&OlH-recbta, FffFH-llnki) 

aba paicharn 

Schuaaia uod Ciplotjonan 

mit OOH uabartchraiban 

(QDO&M «ii Fruition badautat Schuta, 

Expiation ndar raind arittiart nJcht) 

Anuhl dar Fainda (32D) abipaicharn 

Laval in Akku 

+ L 

und niadar abtpaicharn 

Ttit *" GET READY "' 

in Bildich Jrnipajchar 

16 Ifticbin 

•chiabaa 

SchitTipositian in HL 

Schiff und Farban itiitn 

IflH * JK unbadingt, danit dia Fnindi 

in Vortpinn kain* Y-Ricbtung bakonnan 

Znhltr [fuar 120 Ditrchlaauta) 

r*it«n 

Untarpra,.: Fainda bavagan 
Untarprg.: Jf-RichtiiBg taatan 
rarbipaicharadraaaa von 'GET READY 1 

■ it ainai 
tufaaHigaa Vart 

aus <!■■ R-fRafraih-) Ragiatar 

balagan 

IfiD Bytaa 

iarti«ehlaif*o*aH 

RON-Routina: Scblnita auf BC 

BC mruack vol Stack 

and *vtt. nauar Durehlaiif 

20H * 3R Nl (noil larol, din Fatnda 

ho id lie rt iich jatit witdar volt bawe|an 

■™ GET READY *•' *o«ition in Bild- 

ichiraapaicbar nit 20H (Sf ACE) 

balagan 

in Akku ataht nach 20H 

16D Bjtt* 

Sprung tur Haupt*chlaif« 



; *** EXfLOSlOk OES SCHIFFES •« 



7530 061F 



LD B.1FH 



; laahlar (31 Durchlaaufa) 
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7532 


3E07 


LD 


R.07H 


7534 


D3F9 


OUT 


(0F8H).ft 


7536 


3EE7 


LD 


ft,0E7H 


7538 


03F3 


OUT 


(0F9H}.f=l 


753ft 


C5 


PUSH 


BC 


753B 


3E09 


LO 


R.09H 


753D 


03F8 


OUT 


COF8K3 ,ft 


753F 


78 


LD 


ft.6 


7540 


E60F 


ftND 


OFH 


7542 


03F9 


OUT 


C0F9H) .ft 


7544 


3E06 


LD 


R.06H 


7546 


D3F8 


OUT 


C0F8H) ,ft 


7548 


3E1F 


LD 


ft, 1FH 


754ft 


90 


SUB 


B 


7546 


D3F9 


OUT 


C0F9H) .ft 


7540 


3fl0ft42 


LO 


ft.C420ftH5 


7550 


3C 


INC 


ft 


755: 


320ft42 


LD 


C420ftH) ,ft 


7554 


CD0071 


CftLL 


7100H 


7557 


CDC071 


CftLL 


71C0H 


755ft 


CD8073 


CftLL 


7380H 


755D 


2ft5078 


LD 


HL. C7850H) 


7560 


7C 


LO 


ft.H 


7561 


65 


OR 


L 


7562 


£018 


3R 


NZ, 1 + JftH 


7564 


2ft0642 


LD 


HL.C4206H) 


7567 


ED5F 


LD 


ft.R 


7569 


E601 


ftNO 


01H 


756B 


2801 


3R 


Z.*+03H 


756D 


23 


INC 


HL 


756E 


225078 


LD 


C7850H) ,HL 


7571 


325278 


LD 


C7852H) ,ft 


7574 


3E08 


LD 


ft.08H 


7576 


D3F8 


OUT 


(0F8H) .ft 


7579 


3E0F 


LO 


ft, OFH 


757ft 


03F9 


OUT 


C0F3H) .ft 


757C 


CI 


POP 


8C 


757D 


10BB 


DJNZ 


*-43H 


757F 


21EE7S 


LO 


HL . 79EEH 


7582 


7E 


LD 


ft. CHL1 


7583 


FEBO 


CP 


OBOH 


7585 


2808 


3R 


Z.t+OBH 


7587 


2B 


DEC 


HL 


7588 


70 


LD 


A.L 


7583 


FEES 


CP 


0E3H 


7586 


20F5 


3R 


NZ.J-09H 


758D 


C3R07S 


JP 


75ftOH 


7590 


3620 


LD 


(HD.20H 


7592 


3R0142 


LD 


FI.C4201H) 


7585 


3D 


OEC 


ft 


7596 


320142 


LD 


C4201H) ,FI 


7539 


C 38074 


JP 


7480H 



(SOUND 6,0, .31 
Rauachrrtquam vird 
■ it din Zaahltr |t- 
aandart) 



OTH <SOtl«D 7,231 

■ lit rort FSH Kind I und 2 aardtn 
E7H auT Katitchganarator 
iufforiP9H |aachallatl 
ZnhltT rattan 

09H (SOUID 9.0..1S 

nut Fort FBH Lautataarka von 

Zaahlir in Akku liml 2 vird ill 

■ it OFH undiaran daa Schlair«ntaak!i 
tut rort F9H (aaandart) 

OGH 

>ul fort FSH 

IFHin Akku 

linut 2aahlar 

aur Fort F9H 

laaklar io Akku 

♦I 

und aiadar abapaicharn. 

Untarprg.: Painda baaaga* 

Untarprf.: X-JUchtung ttatan 

Untarprg.: Schuaaaa und Eaplaaionan 

Foaition dar aratan Expiaaion in HL 

MSB 

odariart pit 1SB 

OOI dann n»eb T5TCK 

Sckiffapoaitian in HL 

K-Ragietar ala ZufaHavart 

■ it OIH undiaran 

■ Of dann nach 756EH 

aonat Fotition *1 {racntar Tail) 

in Eiploaionataballa abapaickarn 

Akku in Eaplotionixaahrar 

OSK (SOUNDS, 15 

iu[ rort F8H Kami 1 au[ aaiiaala 

OFH Lautalaarka, Etplo- 

auf Fort F9H aionigaraauach] 

Schlajraazaahlar mruack 

fartig T nana nicht, dann nach T53AH 

latttaa Schlrr in dar AuagtbaiaJla 

Zalehan in Akku 

• BOH (Iiichan iuar Sehifrl 
aann ja, dann nack 7590H 
ain Zaicbaa vor 

LSB in Akku 

* Faiftron ifaa arvtaa Schilltt -1 F 
wans nicbt, dann naeb T562H 
aoaat Spialanda 

Scbiff in Auagabainila touacbaa 
raindtjp in Akku 

viadar abapaicharn 

gad dn Bitd wrtdir auHnuan 



(•"SNEIEIIDE ■»• 
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75A0 


21FA79 


LD 


HL,79FFIH 


75A3 


11607D 


LD 


DE.7D60H 


75P.6 


010600 


LO 


BC.0006H 


7 5 A3 


EOBO 


LDIR 




75AB 


C30070 


3P 


7000H 



f b«tt«t Ergtbnit von dir Autgibu«i1i 

, in dit AnringifriMli kopiirin 



, Zur EiBBibaiehltif* uad nvuit Spitl 



i «* PROGRAHHSTART ■«■ 



75B0 


210000 


LO 


HL.OOOOH 


75B3 


£20442 


LD 


C4204H) .HL 


75B6 


310060 


LD 


SP.6000H 


7563 


C30070 


OP 


7000H 



t High-Scan 

, loaichvn 

, Stickpointir tuf 6000H Ivor Progr*»») 

r und Sprung tur Eiagibtichliifi 
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»» DER ZEICHENSRTZ 0£S PROGRftfltlS ZftLftGft ** 
CHR*(128) CHR$C129) CHR*C130) CHR*(131) CHRSC132) CKR$(133) 









CHRSC134) CHRS(13S) CHRtt 136) CHRtt 137) CHRtt 138) CHRtU39) 









CHRtU40) CHRtC141) CHRtt 142) CHRtt 143) CHRttl44) CHRtt 145) 









CHRt(146) CHRM147) CHRt(148) CHRJC149) CHR1C150) CHRtClSl) 





I 



CHRK 152) CHRtC153) CHRtt 154) CHRltl55) CHRtt 156) CHRJC157] 







CHRtt 153) CHRtt 159) CHR*C 160) CHRtt 161) CHRtt 162) CHRtt 163) 






J t 
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CHRSC164) CHR*C1653 CHRt(l£6> CHR»(167) CHRtt 168) CHRIC169) 





I 



I 



CHRSC170) CHRt(171) CHRSC172J CHRSCI73J CHR»tt74) CHRSC175) 





V# ££: 



■•■■ 
::■: 



CHRSC176) CHRSU77) CHRSC178) CHRK179) CHRSC180) CHRSU81J 






CHRJC182) CHR»C183) CHRSU84) CHR*C185) CHR*(1B6) CHRIC1871 



§ m i m m m 



CHR»tl88) CHR*U89) CHRitlSO) CHR»U91) CHR$(132> CHR»tl931 



m : 





^ 
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Ein sennet tea Forwat ierproaran* fiir das Colour-Genie 
Cnur tiir Disket tenbenutzer ) 

Sicher ist Ihnen nicht entsongen. do(5 die Fornet ierrout lne des 
Colour-DOS einen sehr grcpen Nechteil hat: sie ist iu l«ngsa«i 
Wir prasentieren hier ein Programm. das Disketten auf den 
Colour-Genie in einen Bruchteil der geuohntsn Zeit foraatiert. 
Dieses Progriit besteht aus zwei Teilen; 

1. Ein rtasch > nenspr ocheprogranm . Geben Sie dieses bitte auf 
irgendeine Art Ci.B. mit den Basic-Monitor, den Sie welter 
vorne in diesem Bucn celistet finden; fiir diesen sind auch 
die Prufsu»«en am Ende jeder Zeile bestimmt. diese also 
nicht C 1 ) »it einaeben.) in den Rechner ein. Dann speichern 
Sie dieses Programn ait 

CMD"W FFORMAT/CMD , IH8000 . IH82A7 . 1H0066" 

auf Diskette ab. Geben Sie nun das kleine BftSIC-Proflranm 
ein. das hinter den Hex-Listing steht. Dieses Prograim lodt 
und startet dann das Format ier-Prograimi. 



8000 2B 3E 2C 20 3C 3B 3E 2C 96 

9008 20 3C 40 3E 2C 20 3C 53 B5 

8010 70 61 28 4E 16 4E OC 00 B7 

8018 03 FS 00 01 16 IE OC 00 63 

8020 03 FS 00 00 11 FF OB FF 15 

8028 06 00 00 01 OB FF 06 00 17 

8030 00 00 D5 C5 3ft OE 5ft CB 07 

8038 3F 47 67 21 00 80 7FI 90 88 

8040 77 23 82 77 23 10 F7 21 OE 

8048 00 80 09 11 ft8 82 21 14 C9 

80S0 80 3A 11 5A E6 01 20 03 2F 

8058 21 26 80 2B 7E 32 ftE 80 DO 

8060 2B CD B8 80 3ft OE 5ft 4F 21 

8068 E5 El E5 CD B8 80 20 FB CB 

8070 EB 36 FE 23 3ft ft7 82 77 1C 

8078 23 36 00 23 D9 7E 23 D9 CF 

8080 77 23 36 01 23 36 F7 23 44 

8088 EB CO B8 80 20 FB EB 36 2C 

8090 F6 23 06 00 36 ES 23 10 72 

8098 FB 36 F7 23 EB 00 C2 69 6E 

80ft0 80 21 ftS A2 AF ED 52 23 FC 

BOAS 44 4D 05 El 13 36 4E ED CB 

80B0 BO El 21 A8 82 CI Dl C9 37 

80B8 C5 46 23 4E 23 78 B7 28 F6 

80C0 07 79 12 13 10 FC ftF 3D 90 

80C8 CI C9 E5 D5 C5 CD BB DO 61 

80DO II EF FF 21 EC FF 01 A8 B4 

S0D8 82 36 FO CD 37 Dl OA CB 52 

80E0 46 28 27 CB 4E 28 F8 12 EO 
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80E8 03 OA C6 4E CA EA 80 12 6C 

80FO 03 OA CB 4£ 20 F9 CB 4E 58 

80F8 20 F5 CB IE 20 Fi CB 46 50 

8100 28 08 CB 4E 20 E9 CB 7E 98 

8108 28 E8 7E 36 00 E6 F6 CI 33 

8110 01 El C9 3A AT 82 21 £3 E2 

8118 81 CD 05 82 21 03 91 ED 37 

8120 5B 20 10 01 OA 00 ED BO 63 

8128 21 DD 81 01 19 00 ED BO 90 

8130 CD 32 80 06 03 CO CA 80 9F 

8138 28 14 10 F3 47 3E 10 CB A5 

8140 78 C2 14 82 3D CB 70 C2 OA 

8148 14 82 3D C3 14 82 21 FO 3D 

8150 81 ED 5B 20 40 01 OA 00 94 

6158 ED BO 3A OE 5A 47 11 00 37 

8160 80 CS 1A 21 03 82 CO 05 07 

8168 82 2A 20 40 OS 1 1 12 00 04 

8170 19 EB 21 FA 81 01 OB 00 AC 

8178 ED BO Dl 06 03 21 AS 82 C2 

8180 1A CD 5B 82 E6 1C 28 06 F4 

6188 10 F3 CI C3 13 81 13 CI EF 

8190 10 CF C9 CD 99 00 AF 32 BF 

8198 A7 82 32 EO FF 3A OD 5A EB 

81A0 47 C5 3A OA SA E6 40 2B F8 

81A8 08 21 09 5A CB E6 CO 13 ID 

81B0 81 21 03 5A CB A6 CD 13 56 

81B8 81 OE 43 CO 9B 00 3A A7 EB 

81C0 82 3C 92 A7 82 32 ED FF 37 

81C8 CI 10 D6 3E 00 CD 33 00 F2 

81D0 C3 93 DO 46 6F 72 6D 61 21 

81D8 74 69 6E 67 20 54 72 61 F9 

81E0 63 6B 20 30 30 20 20 20 AE 

81E8 20 20 20 20 20 20 20 20 00 

81F0 56 65 72 69 66 79 69 6E 4C 

81 F8 67 20 2C 20 S3 65 63 74 62 

8200 6F 72 20 30 30 C5 06 2F 5B 

8208 04 D6 OA 30 FB C6 3A 70 7F 

8210 23 77 CI C9 6F 26 00 CD 86 

8218 9A OA EO 7B 20 82 E 1 C9 58 

8220 00 00 E5 EO 73 2.0 82 CO B4 

8228 7F OA 7D CO 40 01 C2 14 BA 

8230 82 F3 3E C9 32 12 40 AF AF 

8238 32 23 40 EO 7B Bl 40 CO BB 

8240 C9 01 CD 93 81 AF 32 ED 79 

8248 FF 11 00 00 CD 03 OE 21 DF 

8250 00 00 CO 9A OA ED 7B 20 F9 

8258 82 El C9 E5 D5 C5 E5 C 1 51 

8260 F5 11 EF FF 21 EC FF CO CD 

8268 BB DO Fl 32 EE FF 3A AT 7C 

8270 82 32 ED FF 36 88 CD 37 62 

8278 Dl CB 46 28 21 3E 83 A6 92 
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8280 E2 7D 82 1ft 02 03 CB HZ 19 

8288 20 F8 CB 4E 20 FS CB 4E 60 

8290 20 Fl CB 46 28 08 CB 4E 6B 

8298 20 £9 CB 7E 28 £8 7E 36 16 

82A0 DO E6 3C CI Dl El C9 00 2E 
82A8 



Urtd hier das dazugehoer i ge BASIC-Progron 

10 CLS:PRINT"Fast Format ": PRINTs PRINT 

20 INPUT"Welches Laurwerk";A 

30 CMD"L FFORMATVCMD" 

40 DEFUSR1-&H8222 

50 X-USRHA) 

60 IFXOOTHENPRINT'DlSh error No . " : X 

70 END 
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Erlauterung des Maschinenprogromms "FAST FORMAT" 

Das Programi wird ait dea USR-Berehl auTgerufen. Es wird zur 
Routine (IAIN gesprungen. Dort wird dos HL-Register (der Zeiger 
ouf den Progremitext ) gerettet. Die Routine 0A7FH liest dos 
Argument des USR-Betehls als Integerzahl in das HL-Register. 
interesssnt »st davon aber nur das niederwert lge Byte, die 
Louf«erksnu«*er , in der die zu format terende Diskette liegt. 
Die Routine MOUNT (erne DOS-Routine, die bel D140H begmntJ. 
selektiert dieses Laufwerk und uberpruft. ob eine Diskette in 
dieses Laufwerk 1 legt und die Laufwerksklappe geschlossen 1st. 
Sollte dies nicht der Fall sein. wird zur Fehlerbehandl ungsrou- 
t 1 ne gesprungen, Sonst werden die Interrupts abgeschal tet . der 
Bildschira geloscM C01C9H} und die eigentliche Foraat rout ine 
aufgerufen. Zua Sen I up richtet das DOS das Inhal tsverzeichms 
der Diskette ein (CALL 0DE03HK Wichtig: Bel* Sprung auf diese 
Routine mussen das ft, E und das D-Register den Wert Null 
enthalten. Schliepllch. wenn alles gutgegongen ist, wird die 
Fehlernuniter Null (kein Fehler) durch CftLL 0A9AH zuruchgegeben. 
Nun die Erlauterung der elnzeltien Unterprograame: 

BUILD: Dieses Programm baut ab der Adresse BUFFER den zu 

senreibenden Track auf. Oas Aussehen des Tracks ist va- 
riabel. es hangt von der Einstellung rur dieses LauTwerk 
ab: 



SINQLE DENSITY: 
pro Sektor: 



20 


Bytes 


11 


Bytes 


6 


Bytes 


1 


Byte 


1 


Byte 


1 


Byte 


1 


Byte 


1 


Byte 


1 


Byte 


1 1 


Bytes 


& 


Bytes 


1 


Byte 


n 


Bytes 



1 Byte 



OFFH 

OFFH 

OOH 

OFEH 

Spurnuiier 

Seitennummer (laser Null) 

Sekt ornumner 

Sektorlange (siehe unten) 

0F7H Cgeneriert Prufsuaae) 

OFFH 

00H 

OFBH 

OE5H (n ist Sektorlange) 

0F7H Cgeneriert Prufsuaae] 



Diese Daten werden fur jeden Sektor geschneben. 
Dann folgen Bytes OFFH. bis die gesaate Spur 2000H 
Bytes lang 1st . 
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DOUBLE DENS I TV J 

40 Bytes 4EH 

pro Sektors 22 Bytes 4EH 

12 Bytes OOH 

3 Bytes 0F5H 

1 Byte OFEH 

1 Byte Spurnuaner 

1 Byte Seitennuaaer (later Nul M 

1 Byte Sehtornuiier 

1 Byte Sektorlenge Csiehe unten) 

1 Byte 0F7H Cgeneriert Priifsuaae) 

22 Bytes 4EH 

12 Bytes 00H 

3 Bytes 0F5H 

1 Byte OFBH 

n Bytes Daten (n » Sektorlange) 

1 Byte 0F7H Cgeneriert Prufsuaae) 

Oiese Daten werden fur jeden Sektor geschr leben. 
dann folgen Bytes 4EH. bis die Spur 2000H Bytes ia 
Spelcher belegt. 

Die Sektorlange bedeutet folgendess 

00 ■ 128 Bytes 

01 - 256 Bytes 

02 « 512 Bytes • .- . 

03 > 1024 Bytes 

WRTTRH: Die Routine WRTTRK sehreibt den vorher vorberei tet en 
Speicherbereich ob BUFFER auf die Spur, auf der no- 
aentan der Scnreib-ZLesekopf das Laufwerhs steht. 

FMSU9: Dieses Program* bout eine Spur ia Speicher auf. 
sehreibt sie aur die Diskette und versucht dann, 
jeden einzelnen Sektor wieder einzulesen. u« sicher- 
zustellen. daf> die Foraatierung einwondfrei verlou- 
fen 1st. 

FORMRT: FORMftT rornatiert eine gonze Diskette. Die Routine 
FMSUB wird fur jede einzelne Spur aufgerufen, dann 
wird der Sehreib-ZLesekopf des LnuTwerks eine Spur 
welter noeh innen gesetzt. Dies wird sooft wieder- 
hott, wie die Diskette Spuren hat. 

RDSEC: RDSEC liest einen Sektor von der Spur, aur der der 
Schreib-/Lesekopf aoaentan steht . 
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org tOOOh 



sectab: 


defs 


18 




defb 


40.4eh 


secdd: 


defb 


22.4eh.12. 




defb 


20. Of fh 


secsd: 


defb 


11 ,0f fh.fe. 


build: 


push 


de 




push 


be 




Id 


a. C5a0eh) 




srt 


a 




Id 


b.a 




Id 


d.a 




Id 


hi .sectab 


b V : 


Id 


a.d 




sub 


b 




Ld 


ChU .a 




itie 


hi 




add 


a.d 




Id 


(hu.« 




inc 


hi 




djni 


by 




Id 


hi .sectab 




exx 






Id 


de. buffer 




Id 


hi, secdd 




Id 


a.CSallh) 




and 


1 




Jr 


ni.bx 




Id 


hi .secsd 


bx: 


dec 


hi 




Id 


a. Chi) 




Id 


»ill«rl .a 




dec 


hi 




call 


wt-tstr 




Id 


a. C5a0eh) 




td 


c . a 




push 


hi 


buildl: 


pop 


hi 




push 


hi 


build2: 


coll 


wrtstr 




K 


nz.bui ld2 




ex 


de.hl 




Id 


Chi ) .Ofeh 




irie 


hi 




Id 


a. C t rksec) 




Id 


Chi > .a 




lnc 


hi 




Id 


Chi ) .0 




inc 


hi 




exx 






Id 


a. Chi) 




inc 


hi 




exx 






Ld 


Chi > ,a 




inc 


hi 



0.3.0f5h.O. 1.22.4eh,12.0,3.0f5h.0.0 
0.0, 1 , 11 .Offh.6,0.0,0 
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Id 


Chi) ,1 




inc 


hi 




Id 


(hi ) ,0f7h 




inc 


hi 




ex 


de.hl 


build3: 


coll 


wrtst r 




jf 


nz .but ld3 




ex 


de.hl 




id 


thl ) .Ofbh 




trie 


hi 




Id 


b.O 


build<l: 


Id 


(hi) ,0e5h 




inc 


hi 




djnz 


build4 




Id 


(hn.0f7h 




inc 


hi 




ex 


de.hl 




dec 


c 




JP 


ni.buildr 




Id 


hi .bufrer+2000h 




xor 


a 




sbc 


hi .de 




iric 


hi 




Id 


b.h 




Id 


c. 1 




push 


de 




pop 


hi 




inc 


de 




Id 


ChU .Ofleh 


f il ler 


equ 
Idir 


t-1 




pop 


hi 




Id 


hi .buTfer 




pop 


be 




pop 


de 




ret 




wrtstr : 


push 


be 




Id 


b. (hi ) 




inc 


hi 




Id 


c(hl) 




inc 


hi 




Id 


a.b 




or 


a 




jr 


i.wrtst2 




Id 


a,c 


urtst 1 : 


Id 


(de) .a 




inc 


de 




djnz 


wrtst 1 




xor 


a 




dec 


a 


wrtst2: 


pop 

ret 


be 


urt t rk: 


push 


hi 




push 


de 




push 


be 
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wrtl: 



wrtll s 
wrtl2: 

wrtlS: 



wrt3: 



fmsub: 



forii2: 
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cott 


resel+S 


Id 


de.Of fefh 


Id 


hi ,0f fech 


Id 


bcbuf far 


Id 


(M) .OfOh 


call 


wait 


id 


a. tbc) 


bit 


O.(hl) 


J> 


i.wrta 


bit 


1 .Chi 3 


jr 


z ,wrt 1 


Id 


(de).a 


inc 


be 


Id 


a. (be) 


bit 


l.Chl) 


Jp 


l,nrtll 


id 


Cde) .a 


inc 


be 


Id 


a , ( be ) 


bit 


l.Chl) 


jr 


nz .wrt 12 


bit 


1 .Chi ) 


jr 


nz ,wrt 12 


bit 


l.Chl ) 


}<■ 


nz .wrt 12 


bit 


O.Chi) 


jr 


z,wrt3 


bit 


1 . Chi ) 


Jr 


nz .wrt 12 


bit 


7, CM) 


jr 


Z.wrtlS 


Id 


a. Chi ) 


Id 


(hi ) ,OdOh 


and 


0f8h 


pop 


be 


pop 


de 


pop 


hi 


ret 




Id 


a, ( trksec ) 


Id 


hi ,str3 


cat I 


convrt 


id 


hi .strl 


Id 


de. C4020h) 


Id 


be. 10 


Idir 




Id 


hl.str2 


Id 


be. 13 


Idir 




cat 1 


but Id 


Id 


b.3 


call 


wrtt rh 


Jr 


z . f or«3 


djnz 


Tarm2 


Id 


b.a 


Id 


a. 16 





bit 


7.b 




jp 


ni.dskerr 




dec 


a 




bit 


6.b 




JP 


nz.dsherr 




dec 


a 




JP 


dsherr 


f Orn3: 


Id 


hi .Str4 




Id 


de.(1020hJ 




id 


be. 10 




Idir 






id 


a.(5a0eh) 




Id 


b.a 




Id 


de, sec tab 


rormai 


push 


be 




id 


a.Cde) 




Id 


hi .Str5+9 




call 


corwrt 




Id 


hi . C4020h) 




push 


de 




Id 


de.18 




add 


hi .de 




ax 


de.hl 




Id 


hi ,str5 




Id 


be. 11 




Idir 






pop 


de 




Id 


b.3 


f OrnS: 


Id 


hi .burrer 




Id 


a. Cde) 




eal 1 


rdsec 




and 


lch 




Jr 


z , ror»6 




djnz 


ror*5 




pop 


be 




JP 


fnsub 


Cornfe: 


inc 


de 




pop 


be 




djnz 


for»1 




ret 




format j 


call 


restor 




xor 


a 




Id 


C trfcsec) ,a 




Id 


COf Tedh) ,a 




Id 


a. C5a0dh) 




Id 


b.a 


forml: 


push 


be 




Id 


a. C5a0ahl 




and 


40h 




jr 


z , f oral 1 




Id 


hi ,5a03h 




set 


4. Chi) 




call 


rasub 


fOr«ll: 


Id 


hi ,5a09h 




res 


a. Chi) 
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cal l 


fmsub 




Id 


c.43h 




call 


isscad 




Id 


a, C trksec] 




Inc 


a 




Id 


C t rksec J . a 




Id 


(Orredh) .a 




pop 


be 




djnz 


forml 




Id 


a. 13 




cal! 


33h 




JP 


res tor 


5trl: 


detn 


"Formating ' 


Str2: 


derm 


'Track ' 


str3t 


derm 


'00 


5tr4t 


def* 


' Veri tying ' 


strS: 


defB 


' , Sector 00 


convrt : 


push 


be 




id 


b,2Th 


convl ! 


inc 


b 




sub 


10 




Ji" 


nc, convl 




add 


a.3ah 




Id 


(hi) .b 




inc 


hi 




id 


(hi) .a 




pop 


be 




ret 




dskerr : 


Id 


l .a 




Id 


h.O 




cal I 


0e9an 




Id 


sp, Cst aeK] 




POP 


hi 




ret 




stack: 


defw 





nam: 


push 


til 




Id 


(stack) ,sp 




cal I 


0a7fh 




Id 


a. 1 




call 


mount 




JP 


nz.dsherr 




dl 






Id 


o.0c3h 




Id 


(4012h) .a 




xor 


a 




Id 


C402.3n) .o 




Id 


sp. C40blhJ 




cal I 


OlcSh 




cal I 


format 




xor 


a 




Id 


C orredh) .a 




Id 


de.O 




cal I 


OdeOSh 




Id 


M ,0 




cal I 


OaSah 
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id 


sp, (stack) 




pop 


hi 




ret 




rdsec! 


push 


hi 




push 


de 




push 


be 




push 


hi 




pop 


be 




push 


of 




td 


de.Of fefh 




Id 


hi, Of fech 




call 


resel+5 




pop 


af 




Id 


COfreeh) ,a 




Id 


a, C trksec) 




Id 


COrfedh) ,a 




Id 


(hn,89h 




call 


wai t 




bit 


O.Chi) 




if 


2 , rdsc3 


rdscO: 


Id 


a.83h 




and 


(hi) 




JP 


PO, rdSCO 


rdscl : 


Id 


a,(de) 




Id 


I be), a 




inc 


be 


rdsc2: 


bit 


l.chi) 




jf 


nz . rdscl 




bit 


1.CM) 




jr 


nz , rdscl 




bit 


I . Chi ) 




jr 


nz. rdscl 




bit 


O.ChU 




}r 


z . rdsc3 




bit 


1 . Chi ) 




jr 


nz. rdscl 




bit 


7, Chi) 




jr 


z,rdsc2 


rdsc3: 


Id 


a. Chi) 




Id 


Chi ) .CdOh 




and 


3ch 




pop 


be 




pop 


de 




pop 


hi 




ret 




trhsec r 


defb 





select 


ecu 


0d0c7h 


resel 


equ 


Od0b6h 


MBit 


equ 


0dl37h 


isscmd 


equ 


Od09bh 


restor 


equ 


Od099h 


mount 


equ 


OdllOh 


buffer 


equ 


* 




end 


main 
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Sektoren lesen und schreiben - vom Basic aus 

Dieses kleine Program honnen Sie in Ihre eigenen BASIC-Pro- 
graime einbauen. Lassen Sie dann die Zeilen 30 bis 60 weg und 
ubergsben Sie die in der REtl-Zeile genannten Argumente on das 
Programn. Zu« Program* noch folgendes: 

Das eigentliche Program" 1st ein kunes MascMnensprachepro- 
grann, das in F«$ eingelesen wird. Es sieht folgenderma<Jen aus: 

LD HL.adresse 

LD DE, disk-rel at iver-sektor 

CftLL unterprogram* 

LD L,ft 

LD H.O 

DP 0A9P.H 

Die Werte fur adresse, disk-rel at i ver-sektor und unterprogramm 
werden dann entsprechend Ihreri Eingaben gePOKEd. Dieses Pro- 
gram™ I lest bzw . sehreibt dann emen Sektor und gibt als Ergeb- 
nis des USR-flufrufs die Nummer des aufget retenen Fehlers on 
<0 - he in Fehler ) . 

Programme istinj; 

10 REM **** HD«address, SN=sector • . FL : thread, 2=write, 3»«p, DR-Lau 

fwerksnuimer 

20 CLS:PRINT"Sektor I n-/0ut put " : PRI NT ; PRINT 

30 INPUT"Laufwerk ( 0-3) " : DV : I F0V<00R0V> 3THEN30 

40 INPUT"Rdresse'";flD 

50 INPUT"Oiskrelat l ver Sektor":SN 

60 INPUV'tn Lesen. 121 Schreiben. (3) Lese- geschuetzt schreiben" 

:FL 

70 RESTORE 

80 REFiOR*: IFM <>"SEC I0"THEN80 

90 A*="":F0RX=1T01S:READA:A*»A*+CHR»CA) ;NEXTX : FORX- JTOFL : RERDDR : NEXTX 

100 X-VARPTRC A*) :X-PEEK(X+1 )+256*PEEHCX+2) : I FX>32767THENX-X-65536 

110 P0KEX+1.(A0 AND 255):P0KE X+2 . C INTC AO/256) RN0255) 

120 P0KEX+4,(SN AND 2S5):P0KE X+S . t INTC SN/256)<=IND2S5) 

130 P0KEX+7.CDR AND 25S):P0KE X+8 , ( INTC0R/2S6 ) AND255) 

140 POKEtH5R08,0ViOEFUSRl^X:X»USRK0) : IFX-OTHENENO 

150 PRlNT"Disk Error No . " ; X : END 

160 DftTRSECIO 

170 DRTR33.0.0, 17.0.0.205,0.0. 1 1 1 . 38 . . 195. 1 54 . 10 

ISO DATA- 12433, -124 IT, -12421 
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Zwei Tips fur den Betrieb eines einTarbigen Monitors at. 
Colour-Genie 

Viele Colour-Genie-Benutzer habe an Ihren Computer einen 
einfeljFigen Monitor angeschlossen , da diese bllliger als 
ein RGB-Farbmonl tor sind, aber ein besseres Blld lierern, 

als ein Fernseher, 

In diesem Falle kann man die Schrift noch verbesaern, indent 

•on 

1.) mie Farben auf hellweifJ umsetzt (COLOUR 16). 
Dies geht bei Basic-Programmen sehr einfach: 
In den Adressen 4390H bis 439FH legt das Basic 
eine Farb-Tabel le an, die festlegt, welehe Farbe durcn 
we I Chen Colour-BereM gewahlt wird. Alles was Sie nun 
machen mussen. ist in diese Tabelle uberall den 15 
POKEn (Dies entspricht Hellweip. s. auch Anhang C). 
Also: 

F0RFl«iH4390 TO 4H439F ! POKE A, 15 : NEXT 
Bei naschinenspracneprogramnen und Programmen. die 
direkt in den Farbspeicher POKEn. hilft dies l.d.B. nicht, 

2.) Eine kleinen Gerateumbau vornimmt: 

In der Video-Schal tung des Colour-Semes werden die 
Metrix-Punkte al ler Zeichen verbreitert, domit bei 
Betrieb mit einem Farb-Fernsener die Punkte gro0 genug 
stnd. urn von der Lochmaskenrohre aufgelost werden zu 
konnen. 

Dies ist bei einem Monitor naturlich uber fl ussig . 
Diese Punkt verbrei terung kann durch Ent fernen eines 
Hondensators ruckgangig gemacht werden. 
Dazu gehen Sie folgenderma0en vor : 



Losen Sie die 3 Scnrauben vorne unten und offnen Sie das 

Colour-Genie - Rchten Sie darauf. dad Sie das Kabel des 

Level-Meters (wenn eingebaut) und das der Tastatur nicht 

abziehen. 

Sie sehen vorne, in der Mitte der Hauptplat ine, diese 

Bautei Igruppe: 

■gjQ 



2.1ft 






E3« 




■JiL 


e*i." 


Z.3S 


'+l 


Zt-lh- 




Schneiden Sie nun mit einem feinen Seitenschneider eines der 

AnscM upbeine des Hondensators C58 durch und biegen S^e den 

Hondensators etnas hoch. (So konnen Sie den Kondensator 

jederzeit wieder anloten.) 

Schrauben Sie das Gerat wieder zu. Fertig i 

(Etwas Elektronik-Erfehrung sollten Sie rur diesen Umbau 

naben - sonst lassen Sie einen kundigen Bekannteh die 

Umrustung vornehmen.) 



Anllang A Colour -Basic -Tokens 



Basic E i nf ach t ok ens 

128 T END 129 T FOR 

130 J RESET t 3 1 L SET 

132 4 CLS 133 N CMD 

134 * RANDOM 135 » NEXT 

136 - DATA 137 I INPUT 

138 | Dill 1 39 ~ READ 

149 _ LET 141 Q GOTO 

142 I RUN 143 • IF 

144 | RESTORE 145 - GOSUB 

146 r RETURN 147 T REM 

148 > STOP 149 < ELSE 

156 ¥ TRON 151 ^ TROFF 

152 - DEFSTR 153 t DEFINT 

154 » DEFSN6 155 L DEFOBL 

156 J LINE 157 A EDIT 

158 V ERROR 155 *. RESUME 

1 68 ■"■ OUT 161 U ON 

162 C OPEN 163 I FIELD 
164 n GET 165 U PUT 
166 + CLOSE 167 i\ LOAD 

163 M MEROE 169 * NAME 
170 * KILL 171 I LSET 
172 D RSET P3 T SAVE 
174 £ SYSTEM 175 P, LPRINT 
176 U OEF \->~> I POKE 
178 <J PRINT 175 ,1 CONT 
180 _ L 1ST 18! ~ LL I ST 
182 I DELETE 183 @ AUTO 
184 U CLEAR 185 X CLOAD 
186 I CSAVE 187 _ NEU 

1 88 _ TflB( 189 "TO 

1 90 . FN 1 9 1 " USING 

192 « VARPTR 193 = USR 

194 + ERL 195 & ERR 

196 m STRINGS 197 X INSTR 

198 * CHECK 199 M TIME* 

290 ♦ MEN 201 4 INKEY* 

£02 ■ THEN 203 II NOT 

204 III STEP 205 A + 

20b = - 207 I t 

208 — 289 ™ E 

£10 . AND 211 "OR 

2 12 1 > 2131= 

21 4 \ < 215 = SON 

216 III INT 217 - HBS 

213 _ FRE 219 I IMP 
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220 
222 
224 
£26 
228 
230 
232 
234 
236 
238 
240 
242 
244 
246 
£48 
250 



r 



D 

» 



OS 

MD 

XP 

IN 

Tti 

VI 

VD 

OC 

KI* 

KD* 

SHG 

IX 

TR* 

SC 

EFT* 

ID* 



££1 


II 


SQR 


223 


/ 


LOG 


225 


1 


COS 


227 


\ 


TAN 


££9 


» 


PEEK 


231 


U> 


CVS 


233 


B 


EOF 


235 


O 


LOF 


£37 


T 


MKS* 


£39 


IL 


CINT 


241 


K 


CDBL 


£43 


a 


LEN 


£45 


» 


VAL 


247 


:: 


CHR* 


£49 


*.• 


RIGHT* 


£51 


V 


■ 



Colour-Basic Doppel tokens 



255 
255 
255 
£55 
255 
255 
£55 
255 
£55 
255 
255 
255 
255 



1 £8 
138 
132 
( 34 
1 36 
1 38 
1 40 
1 42 
1 44 
1 46 
1 48 
1 58 
I 52 



J 
4 



r 
> 



COLOUR 

KEYPAD 

PLOT 

L&R 

PLAY 

SCALE 

NSHhPE 

PAINT 

NPLOT 

CHAR 

SWAP 

CALL 

BGRD 



255 
255 
255 
£55 
£55 
£55 
£55 
£55 
255 
255 
£55 
255 
255 



1 29 
1 31 
I 33 
1 35 
1 37 
1 39 
1 41 
1 43 
1 45 
1 47 
1 49 
151 
1 53 



P 
L 



1 
< 

* 



FCOLOUR 

30Y 

FGR 

FCLS 

CIRCLE 

SHAPE 

XSHAPE 

CPOIMT 

SOUND 

REMUM 

FKEY 

VERIFY 

NBGRD 



<Guelti9 fuer die neuen ROMs) 



W 



Anhar 


*s 


B: Oezmal 


- . He 


xadez ug 


t-. 


ASCII 


-Tabel le 







00H 




1 




01 H 




2 




0£H 




3 


= 


03H 




4 


= 


04H 




5 


= 


05H 




6 


= 


06H 




7 


= 


07H 




8 


= 


08H 




9 


= 


09H 




1 


= 


0AH 




1 1 


= 


0BH 




1 2 


= 


0CH 




1 3 


= 


8DH 




1 4 


= 


0EH 




1 5 


= 


0FH 




1 6 


= 


1 0H 




1 7 


= 


1 1 H 




1 8 


= 


t 2H 




1 9 


= 


1 3H 




20 


= 


1 4H 




£1 


= 


1 5H 




£2 


= 


I6H 




23 


= 


1 7H 




24 


= 


1 8H 




25 


= 


1 9H 




26 


= 


1 AH 




£7 


= 


1 BH 




28 


= 


1 CH 




29 


= 


1 DH 




30 


= 


1 EH 




31 


= 


1 FH 




32 


= 


20H 




33 


= 


2 1 H 


t 


34 


= 


22H 


" 


35 


= 


£3H 


* 


36 


= 


24H 


* 


37 


= 


25H 


% 


38 


= 


26H 


& 


39 


= 


27H 


■ 


40 


= 


28H 


< 


41 


= 


29H 


) 


42 


= 


2AH 


* 


43 


= 


2BH 


+ 


44 


= 


2CH 


, 


45 


= 


2DH 


- 


46 


= 


2F.H 




47 


= 


2FH 


/ 


48 


= 


30H 





49 


= 


31H 


1 


50 


= 


32H 


£ 


51 


= 


33H 


3 


52 


= 


34H 


4 


53 


= 


35H 


5 


54 


= 


36H 


6 


55 


= 


37H 


7 


56 


= 


38H 


8 


57 


= 


39H 


9 


58 


= 


3AH 




59 


= 


3BH 


, 


60 


= 


3CH 


< 


61 


= 


3DH 


= 


62 


= 


3EH 


> 


63 


= 


3FH 


■> 


64 


= 


40H 


e 


65 


= 


41 H 


A 


66 


= 


42H 


B 


67 


= 


43H 


c 


68 


= 


44H 


D 


69 


= 


45H 


Z 


78 


= 


46H 


F 


71 


^ 


47H 


6 


72 


= 


48H 


H 


73 


= 


49H 


I 


74 


= 


4AH 


3 


75 


= 


4BH 


K 


76 


= 


4CH 


L 


77 


= 


40H 


M 


78 


= 


4EH 


M 


79 


= 


4FH 





80 


= 


50H 


P 


81 


= 


5 1 H 


Q 


82 


= 


52H 


R 


83 


= 


53H 


S 


84 


= 


54H 


T 


35 


= 


55H 


U 


86 


= 


56H 


V 


87 


= 


57H 


Ul 


88 


= 


58H 


X 


89 


= 


59H 


Y 


96 


= 


5hH 


2 


91 


= 


5BH 


[ 


92 


= 


5CH 


\ 


93 


= 


5DH 


1 


94 


= 


5EH 


-- 


95 


= 


5FH 




96 


= 


60H 




97 


= 


61 H 


a 


98 


= 


62H 


b 


99 


= 


63H 


c 


100 


= 


64H 


d 


1 01 


= 


65H 


e 


1 02 


= 


66H 


f 


1 03 


= 


67H 


g 


1 04 


= 


68H 


h 


1 05 


= 


69H 


l 


106 


= 


6AH 


J 


1 87 


= 


6BH 


k 


1 03 


= 


6CH 


1 


1 09 


= 


6DH 


in 


1 1 


= 


6EH 


n 


! 1 1 


= 


6FH 


o 


1 1 2 


= 


70H 


p 


1 1 3 


= 


71 H 


•^ 


1 1 4 


= 


72H 


r 


1 1 5 


= 


73H 


S 


1 1 6 


= 


74H 


t 


1 1 "■ 


= 


75H 


u 


1 1 8 


= 


76H 


<J 


1 1 9 


= 


?->H 


u 


1 28 


= 


78H 


X 


1 21 


= 


79H 


y 


1 22 


= 


7AH 


z 


1 £3 


= 


7BH 


C 


1 £4 


= 


7CH 


! 


1 25 


= 


70H 


> 


1 26 


= 


7EH 


~ 


1 27 


= 


7FH 


■ 


1 28 


= 


88H 


1 


1 29 


= 


81 H 


r 


1 30 


= 


8£H 


J 


1 31 


= 


83H 


L 


1 32 


= 


84H 


4 


1 33 


= 


85H 


t 


134 


= 


86H 


* 


1 35 


= 


87H 


» 


1 36 


= 


68H 


— 


1 37 


= 


89H 


1 



102 



1 38 


= 


8AH 


1 


139 


= 


8BH 


™ 


1 40 


= 


8CH 




lit 


= 


80H 


D 


142 


= 


8EH 


1 


1 43 


= 


8FH 


• 


1 44 


= 


98H 


1 


1 45 


= 


91 H 


H 


1 46 


= 


92H 


r 


147 


= 


93H 


n 


148 


= 


94H 


> 


1 49 


= 


95H 


< 


1 50 


= 


96H 


> 


1 51 


= 


97H 


4 


1 52 


= 


98H 


• 


1 53 


= 


99H 


t 


154 


= 


9AH 


^ 


1 55 


= 


9BH 


L 


1 56 


= 


9CH 


J 


1 57 


= 


9DH 


A 


158 


= 


9EH 


V 


1 59 


= 


9FH 


^ 


160 


= 


A0H 


■"■ 


1 61 


= 


A1 H 


U 


1 62 


= 


A2H 


c 


1 63 


= 


A3H 


1 


1 64 


= 


A4H 


n 


165 


= 


ASH 


u 


1 66 


= 


A6H 


t 


1 67 


= 


A7H 


to 


1 68 


= 


ASH 


II 


1 69 


= 


A9H 


V 


1 70 


= 


AAH 


* 


t 71 


= 


ABH 


1 


1 72 


= 


ACH 


3 


1 73 


= 


ADH 


K. 


1 74 


= 


AEH 


c 


1 75 


= 


AFH 


ft 


1 76 


= 


B0H 


V 


1 77 


= 


B1 H 


■ 


1 78 


= 


B2H 


U 


179 


= 


B3H 


a 


1 80 


= 


B4H 


^ 


1 81 


= 


B5H 


^ 


1 82 


= 


B6H 


i 


183 


= 


B7H 


m 


184 


= 


B8H 


U 


1 85 


= 


B9H 


X 


1 86 


= 


BAH 


i 


1 87 


= 


BBH 


_ 


1 88 


= 


BCH 


— 


1 89 


= 


BOH 


■ 


190 


= 


BEH 


■ 


191 


= 


BFH 


" 


1 92 


= 


C0H 


* 


1 93 


= 


CI H 


= 


1 94 


= 


C2H 


+ 


1 95 


= 


C3H 


s 


1 96 


= 


C4H 


m 


1 97 


= 


C5H 


X 


1 93 


= 


C6H 


* 


1 99 


= 


C7H 


M 


200 


= 


C8H 


* 


281 


= 


C9H 


4 


202 


= 


CAH 


■ 


203 


= 


CBH 


H 


204 


= 


CCH 


III 


285 


= 


CDH 


A 


206 


= 


CEH 


= 


207 


= 


Cf"H 


1 


208 


= 


D0H 


™ 


289 


= 


D1 H 


m 


21 9 


= 


D2H 


B 


21 1 


« 


D3H 


— 


21 2 


= 


D4H 


1 


21 3 


= 


D5H 


1 


21 4 


= 


D6H 


". 


21 5 


= 


D7H 


= 


21 6 


= 


08H 


tli 


21 7 


= 


D9H 


— 


£ 1 8 


= 


DAH 


^ 


21 9 


= 


DBH 


1 


220 


= 


DCH 


// 


221 


= 


DDH 


II 


222 


= 


DEH 


•^ 


223 


= 


DFH 


/ 


£24 


= 


E0H 


k 


£25 


= 


El H 


1 


226 


= 


E2H 


r 


227 


= 


E3H 


\ 


228 


= 


E4H 


^ 


229 


= 


E5H 


» 


230 


= 


E6H 


• 


£31 


= 


E7H 


<V 


232 


= 


E8H 


f 


233 


= 


E9H 


H 


234 


= 


EAH 


". 


215 


= 


EBH 


o 


£36 


= 


ECH 


r 


237 


= 


EDH 


~t 


238 


= 


EEH 


i 


239 


= 


EFH 


L 


249 


= 


F0H 


J 


£41 


= 


F1 H 


« 


242 


= 


F2H 


♦ 


243 


= 


F3H 


« 


244 


= 


F4H 


* 


245 


= 


F5H 


» 


246 


= 


F6H 


. 


247 


= 


F7H 


;* 


£48 


= 


F8H 


a 


249 


E 


F9H 


;.; 


250 


= 


FAH 


tt 


£51 


= 


FBH 


•i 


252 


= 


FCH 


: 


253 


= 


FDH 


*- 


254 


= 


FEH 


:■ 


2S5 


= 


FFH 


-* 
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Anhang C Per Farbspeicher 



Vielleicht 1st Ihnen ouch schon aufgefallen. do0 nan beim 

POKEn in den Farbspeicher bei glelchem Argument andere 

Forben behonmt ols mit dero COLOUR-Befehl . 

Folgende Tabel le gibt Ihnen an. wie die einielnen Farben 

abgespeichert werden. 

(Hinweis: Oer Farbspeicher hat nur 4 Bit pro fidresse, 
d.h. uenn Sie den Farbspeicher mit dei PEEH- 
BefeM abfragen miissen Sie das Ergebnis »»t 
15 'undieren', u* die 4 nicht belegten Bits 
zu unterdruchen. Z.B. ; 
X'PEEKCiHFOOO) AND 15 

Es folgt nun die Vorbelegung der Farbtabelle ob IH1390 : 

Farbe Bit 3 Bit 2 Bit I Bit Wert Forb-Nr. 



Grou 

















10 


Cyan 











1 


1 


7 


Rot 








1 





2 


3 


Weip 








t 


1 


3 


1 


Gelb 


o 


t 


* 





* 


4 


Grtin 





t 


9 


t 


• 


* 


Orange 





1 


1 


© 


c 


8 


Hellgelb 





1 


1 


1 


7 


11 


Bl an 
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Verzeichms der verfugbaren Colour-Genie-Sof tware 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1.) HILFSPROGRAMME. PR0QRAMI11ERSPRACHEN 

COLOUR-COMPILER: Dieses Program* 1st extrem wertvotl. Es bietet 

die Moglichkeit, Basicprogramme in haschinenspracheprogranne zu 

ubersetzen. 

Der nesentliche Vorteil: Ihr Progranm \auft nach Compi I lerung 

c.a. 40 *al (i) schneller. 

Dies geschieht interakt i v , d.h. Basicprogramm , naschinen- 

programm und Compiler stehen gleichzeitig is Speicher. was ein 

sehr schnelles Arbeiten ermoglicht. Dabei konnen c.a. 9-5 KByte 

Basicprogramm verarbeitet werden. Verzichtet nan auf die 

hoehauf losende Grafik, steht noch mehr Speicher zur v/erfugung. 

Vorausset2ung: lhr COLOUR-GENIE MUSS AUF 32K RAM ERWEITERT 

SEIN. Die meisten Colour-Basic-Bef ehle werden vom 

Colour-Compiler unterstutzt . Die wesent I ichste Einschrankung 

>st, dap der Colour-Compiler nur GanzzaMen (Integers) 

verarbeitet . 

Preis: 69.- DM , , 

COLOUR -MONITOR I: Ein Maschi nensprachemoni t or mit starkem 
Befehlssatz. z.B. Disasseml leren. Asc l i/Hex-Dump, Bander 
laden/schreiben. Bytes suchen. Spejcher edi t leren/verschieben/ 
relozieren, Hex/Dezimal -Unwandlung u.a.rt. 
Preis: 39.- DM 

COLOUR-RSSEMBLER: rtit diesem Program* konnen Maschinensprache- 

programme «ur komrortable Ueise entwiekelt werden. Das 

Programmeren geschieht mit Z80-Mnemomcs , Labels etc. 

Der Assembler erzeugt dann das Maschinenspracheprogramm. das 

zur Probe ouch direkt ausgefuhrt werden kann. 

Cine weitere Besonderheit des Assemblers 1st. dap der 

Assembler-Text in gnnz normolen Basic-Modus erzeugt wird, 

so dap alle Basic-Bef ehle wie EDIT. LLIST. CSAVE vom Assembler 

ausgenutzt werden. 

Preis: 69.- DM 

S0UN0-E0ITOR (auch im Handbuch "Colour Basic leicht geternt" 
aufgelistet) ; Em nutzliches Hi I f sprogromm zur Programmserung 
des PSG-lCs tSound-Chip) . Sie editieren die PSG-Register auf 
dem Bildschirm und der entsprechende Ton wird gleichzeitig 
ausgegeben. Abschliepend gibt das Program* alle PSG-Register- 
inhalte in dezimaler Schreibweise aus . 
Preis: 25.- OM 

ZEICHEN-EDITOR (auch liti Handbuch "Colour Basic leicht gelernt" 
aufgel istet i : Dieses Program* ermoglicht es . 64 der 126 frel 
def lnierbaren Zeichen auf dem Bildschirm ubersicht I ich zu 
editieren. Es konnen auch GraTiken. wie z.B eine Schreib- 
schrirt. erstellt werden. Abschliepend werden die definierten 
Zeichen in ein Basicprogramm geschr leben . was diese fur den 
spateren Gebrauch Oder zur Entwicklung eigener Programme wieder 
deTiniert. So wird die u*stondliche Handhabung der Programa- 
lerung der def inierbaren Zeichen umgangen. 
Preis: 25.- DM 
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GRAFIK-EDITOR: Menu Sie Ihr Colour-Genie ouf 32K RAM ouf- 
gerustet haben, konnen Sie dieses Program* einsetzten. denn 
der "Graf lk-Edl tor" hat eine Lange von 26000 Bytes' 
Er bletet die Mogl ichkei t . Grefiken 1 * FGR-Modus mlt einer 
Vielzahl von leist ungsstarken Koamandos zu hreieren. 
Abschliepend wird ein Bssic-Progrnu erzeugt werden, das. 
eingebunden in eln elgenes Program*, das Blld blitzschnell 
wieder ouf den Bildschlr* bringt. Sie konnen also such ko*plexe 
Grafiken sehr schnel I fert 1 gs tel t en und sie hinterher belteblg 
vemenden. 
Pre is: 69.- DM 

SHAPER: Die Handhobung des Basiebefehls "SHAPE" ist recht 
umstandl ich. Hier bringt der "Shaper" Abhilfe: Mlt wenigen 
Tastendrucken erzeugen Sie eine Figur, die abseht lepend 
in Foramt der "Shape-Table" abgespelchert wird. 
Preis: 25.- DM 

COLR0T: Ein sehr nutzllches Graf ikprogram*. fUr al le die mit 
gropen Texten Aufmerksamkei t erregen wol len (z.B. 1* 
Schaufenster) . Colrot erzeugt Lauf sehr i t ten ait bis zu 512 
Zeichen Lange, Titel und Fu&schnft. lnversdarstel I ung. Inter- 
mezzo u.v.o.m. NeuiTexte koimen auf Band gespeichert werden. 
Ein komfortabler Editor eraoglicht einfaches Arbelten. 
PrelS: 69.- DM 

BASICODE 2 C 1 ')! Oer neue Basicode-Standard fur das 
Colour-Genie (kompat ibel zu Bail code 1). Dieses Program* 
nacht ihr Colour-Genie Basicode kompatibel ' 

Basicode ist das Standard-Basic, in den z.B. das WDR-Fernsehen 
Programme austrahlt. Eine Hardwareanderung ist nlcht notig. 
Preis: 25.- DM 

ZEICHENEDITOR+: Dieser Editor, in Maschinensprache geschr leben , 
ermoglicht es olle 128 Zeichen sehr schnel I und koafortabet 
zu editieren. Dabei gibt es sogar Befenle urn Hreise zu 
zeichnen. Zeichen zu kopieren/dupl izleren/rot uren/invert leren 
u.v.o.m. 
Press: 39.- DM 

BftSIC+5: Dieses Program* erweitert das normals Basic u* 5 
Befenle: la Grafikmodus konnen beliebige Texte dargestellt 
werden, Rechteckr I achen konnen geaalt werden, mit "SAVE" konnen 
Machinenspracheprogramme gesicnert und *it "LOAD" komfortabel 
geladen werden. Ferner steht ein E ingabebef ehl zur Verfugung. 
der an beliebige Speicherzel len schreibt. 
Preis: 39.- DM 
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ZEICHENSATZE: Dieses Prograaa laflt Sie den vorhandenen Zeichen- 

satz fur al le ASCI I-Zeichen wahlweise gegen einen von acht 

neuen. interessonten Zelcnensatzen ersetzen. 

Fur dieses Prograaa aup Ihr Colour-Genie ait 32K RAM 

ausgerustet sein. 

Preis: 25.- DM 

SCREEN-PRINTER: (Auch in dea Such "Dos Colour-Senle-Buch 1" 
aufgel istet . ) Auf dieses Prograaa hoben die Besltzer des STAR- 
Druekers DP 510 bzw, DP 515 sicher gewartet i 

Es eraogt icht es Ihnen, den Bildschira jederzeit koaplett auf 
Ihren Drucker auszugeben, egal ob Sie in FGR- oder ia LGR-Modus 
sind. Definlerte und feste GraTikzeichen werden ebenrolls ait 
susgedruekt . Auch rur dieses Prograaa braucnen Sie 32H RAH und 
noturlich einen STAR OP S10 / DP 515 Drucker. 
Preis: 39.- DM 

COLOUR-MONITOR III: Dieses Prograaa wird aUe. die auf 
Maschinensprache-Ebene prograaaieren begeistern ' 
Der "Colour-Monitor III" 1st nicht nur ein Monitor ait den 
ubl ichen Befehlen. wie ASCII-Dump. Hex-Duap. Disassea- 
blieren. Bander schrelben etc.. sondern ein Monitor alt 
elngebautea Asseabler, Find-Asseabler und der Moglichkeit 
Masehinenspracheprograaae in Einzelsehr i ttausf uhrung zu 
testen ' Das Arbeiten wird neben dea Super-Berehlssotz 
durch raffimerte AuTtellung des Bildschirms erleichtert. 
Fur dieses Prograaa ben<5tigen Sie ein Colour-Genie ait 32K Ram, 
Ein ausfuhrl iches deutsches Handbuch liegt bei. 
Preis: 95.- DM 

COLOUR-FORTH: Endlich gibt es eine leistungsstarke Version der 
Forth-Prograaaiersproche auch rur das Colour-Genie ■ 
"Colour-Forth" ist eine fur Hasset tenbet rieb angepapte Version 
des FlS-Forth. die ua vlele Befehle fur das Colour-Genie 
erweitert wurde (Graphik, Ton...). Der wesentliche Vorteil der 
Prograaalersprache Forth ist die extrea schnelle 
Ausf uhrungszei t der Prograaae, die in unserea Forth noch durch 
Benutzung des elngebauten Assemblers gesteigert werden hann ' 
FUr dieses Prograaa benotlgen Sie 32K Ram, sowie die neuen 
Basic-Roas. die seit April '83 in alio Colour-Qenies eingebaut 
sind. Ein ausfuhr I iches deutsches Handbuch wird mitgel lefert . 
Preis: 95.- DM 

COLOUR-TEXT! Endlich Konntn alle Colour-Qenle-Besi tier . die 
einen Drucker hoben in den Genup einer koafortablen Textver- 
arbeitung koaaen i Colour-Text erweitert die Bi Idschirabrei te 
auf 55 Zeichen. die box male Zellentange ist 64 Zeichen 
Chorizontales Scrolling). Sie slnd ait dea Cursor standlg ia 
Text, und kerne Steuerzeichen verunstalten den Text, da die 
verschiedenen Schriftorten durch Farben gekennzeicr.net slnd. 
(Fur Benutzer eines Schwarz/Weiss-Sichtgerates extra Status- 
zeile.) Das Prograaa unterstutzt alle gangigen Drucker (STAR, 
EPSON, ITOH. Tvpenrad) . Uenn Sie emen graf lkfahigen STAR-, 
EPSON- oder ITOH-Drucker haben konnen Sie sogar 
selbstdef imerte Graf ikzeiehen in den Text einfugen ' 
Ein deutsches Handbuch I legt bei. 
Preis: 95.- DM 
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2.) SPIEL- U. GRAFIKPROQRAtlME 

INVASION AUS OEM WELTRAUM: Eln ttaschinenspracheprograaa , das 
die Sound- u. Graf ikaogl ichkei ten des Colour-Genies vol I 
ausnutzt. Ihre Aufgabe 1st es, einen Pulk von tnvasoren 
abzuwehren, der alch der Erde nehert. 

Die Invasoren warden dabei laaer schneller und gef ahr I icher . 
Preis: 39.- DM 

PUNKTEJAGO: Bei dtesea Spiel gent es darui. alle Punhte in 
elnea Labyrint aufzusaaaeln. bevor Sie von einea Ulachter 
eingeholt warden. Schnelle GraTik und Ton durch Maschinen- 
sprache. 
Preis: 25.- DM 

WURli: Unser derzeit sehnellstes Act ion-Spiel . Ein Wura koaat 
von oben den Bildschira herab und versucht Sie iu vernichten. 
Dabei hat er die Spinne. die Fliege und die Ente els Heifer. 
Kein Spiel fur ruhige Stundeni 
Preis: 39.- OM 

BREAK OUT: Bei diesea Video-Spiel au0 eine Mauer ait Ihre* Ball 
2erstbrt werden. Dabei konnen verschieden Schwierigkeitsgrade 
vorgewahlt werden. Hohe GeschMindighei t durch Maschlnenspraehe- 
prograaaierung. 
Preis: 39.- Oil 

DEMOPROGRAMM: Hierait konnen Sie besser als ait der ait Ihrea 
Colour-Genie z.Zt. ai tgel leferten engl ischen Deaokaasette die 
Mogt ichkei ten Ihres Colour-Genies deaonstr leren. 
Preis: 25.- DM 

ANDROMEDA: Ein erstkl assiges dreidiaensionales Mel trauaspiel 

alt ansprechender Grarih. Feindl iche Rauaschifre koaaen auf Sie 

zu: vernichten Sie dlese. bevor sie Ihnen wertvolle Energle ab- 

gesaugt haben. 1st die Zeit abgelauTen, so eilt Ihnen Ihre 

Mutterbasis zu Hllfes aber das Auftanken will ouch gelernt 

join, 

Preis: 39.- DM 

MAU-MAU: Endl ich haben Sie einen Spielpartner , der nicht wutend 
die Harten wegwirrt, wenn er aa verlieren 1st. Dies durfte wohl 
aber ouch selten der Fall sein, vielaehr wahrseheinl ich 1st es. 
da0 Sie den Coaputer vor Wut ausschalten, da lhr Coaputer Dank 
einer hervorragenden Taktik auf Sieg projraiiiert ist. 
[Er schuaaelt nicht '■) Gespielt wird nach den ublichen Regeln. 
Preis: 25.- DM 

HEKTIK; Stellen Sie sich vor, Sie waren in einea Neubau ait 6 
Geschossen. bei dea die Ebenen durch Leitern verbunden slnd. 
3etzt koaaen Ihnen von oben Verfolger entgegen. Sie aufton sich 
ihnen stellen. denn es gibt keinen Fluchtweg. Graben Sie an 
strategisch Hichtlgen Stellen Locher in den Boden . ui so' Ihre 
Verfolger euszuschal ten. 
Preis: 39.- OM 



109 



METEOR: Ein Super-ftct ion-Spiel in Grafik-Modus Ihres 
ColourGenies . Sie befinden sich in einea Meteor itenfeld und 
we r den von Meteor iten. Sternen und schiessenden Ufos bedrangt. 
Dos Prograaa zeichnet sich durch sehr schnelle Graflk und gute 
Toneffekte aus. 
Preis! 69.- OM 

MOTTEN: Bei diesea Videospiel aiipen Sie Holonnen von flatten 
bekaapren. die In gef Shr I ichen Stur2riugen anrilegen und dabei 

auch noch schieuen. 
Preis: 39.- OM 

PflNIK; Ein Prograan fiir 2 Spieler. Man au(i versuchen, den 
Gegner einzuaauern, Wahlbare Geschwindigkeit nacht "Mauer" 
entweder zu einea Reaktions- oder zu einea St rategiespiel . 
Das Prograan kann wahlweise ait Joysticks Oder ait der Tastatur 
bedient werden. 
Preis: 25.- DM 

TflUSENDFUp": Hier sollen Sie einen Wurm so steuern. dap er nur 
Futter aber kein Gift fript. Dazu koaaen noch Kraftfutter und 
Gegengift. Ein sehr unterhat tsaaes Geschickl ichket tssplel flir 
die ganze Faailie. Bei Splelbeginn kdnnen viele verschiedene 
Geschwindigkelten und Schwler lgkeitsstufen vorgewahlt werden. 
Preis: 39.- DM 

COLOUR-SCHfiCH : Jetzt kdnnen Sie gegen Ihr Colour-Genie auch 
Schach spielen. Colour-Sehech bietet 4 verschiedene Spiet- 
starken, Rufzelchnung eines laufenden Spieles auf Kassette, 
ftndern von Stellungen. einen Demons t rat ionsaodus und onderes 
sehr. Die Figuren werden auf ansprechende Weise grefisch 
dargestel I t . 
Preis: 69.- DM 

EXNIMROIO: Ein Denkspiel . abgeleitet voa bekannten Nia-Spiel . 
Es geht darua. aus aehreren HSufchen den letzten Spielstein 
zu nehnen. Sie spielen gegen den Conputer. 
Preis; 25.- DM 

KINGS: Eine Regierungss 1 nut at ion , bei der Sie Tur eine Dauer 
von 8 3ahren eine Inset regieren sol len. Oabel kann nur der 
kluge Einsatz alter Faktoren zu einea Erfolg fiihren, Haben 
Sie Ihre Aatszeit iiberlebt. werden Ihre Taten ausgewerted. und 
Sie kdnnen dann auch welter regieren. . 
Preis: 45.- DM 

CONQUER: Ein sponnendes Videospiel - erobern Sie die 
Spinnenf estung > 
Preis: 2S.- OM 
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MAMPFMAN: Ahnt ich wle unser Spiel "Punktejagd". nur dap - Sie 
hier von aehreren Gespenstern verfolgt werden. die SJe unter 
best m«v ten Bedingungen jedoch such fressen konnen. 
PreiS: 25.- DM 

MAMPFMAN 2: Die neue Version von Maapfnan > Excel lente Grafik 
und hone Spietdynaaik. Ein sehr eapf enlenswertes Prograaa i 
PreiS! 33.- DM 

COLOUR-KONG: Das absolute Vldeospiel < Retten Sie Ihre 
Freundin vor del wilden Affen. Mehrere Ebenen. super GraTik 
und Musik. AuT de* Band finden Sie Versionen fur 32H und 
16H RAM 
Preis: 69.- DM 

PANZERHAMPF: Em Spiel fur Zwei Personen (JOYSTICKS und 32K RAM 
er forderl ich) . Liefern Sie sich ait Ihrea Gegner spannende 
Panzerschl achten ' Das Progron verfugt uber 3 verschiedene 
Gelande ait hinen etc. 
Preis: 69.- DM 

EISs Ein spannendes. zugleich jedoch auch recht schwieriges 
Actionspiel ait st rategischen Eleaenten. Sie be finden sich in 
elnea Muni raum und iu0en Eisblocke so ans Rutschen bnngen, da(3 
die gefahrlichen Schneeaonster vernichtet werden. 
Preis: 39.- DM 

EAGLE: Vernichten Sie verschiedene Schwadronen von Vdgeln. 
bevor Sie versuchen das grope Mutterschiff zu zerstoren. 
Preis; 33.- OM 

GAME of LIFE: Dieses bekannte Program simuliert das Wachstua 
von Bakterienkul turen . Die Regeln werden la Program* erklart 
und einige interessante Figuren sind fest abgespeichert . 
Preis: 25.- DM 

SAUG: Ein lustiges Vldeospiel, bei del Sie ous einei 

unter lrdischen Labyrint Teraiten ansaugen niupen. wobei Sie sich 

vor girtlgen. roten Teraiten huten nu0en. 

Das Spiel kann auch ait Joysticks gesteuert werden. 

Preis: 33.- DM 

ExREVEASIC: Spielen Sie Reversi gegen Ihr Colour-Genie ' 
Dabei kann zwischen aehreren Spielstufen gewahlt werden. 
Das Spielbrett wird aur ansprechende Weise graphisch 
dargestel I t . 

PreiS: 39.- DM 

BANG-BANG: Zwei Cowboys begegnen sich in der Prarle und liefern 
sich ein erblttertes Duel I . Fur dieses Spiel sind Joysticks 
er forderl ich. 
Preis: 39.- DPI 

NETZO: Versuchen Sie ait Ihren Pinsel alle Flochen auszuaalen. 
ohne von Ihren Gegnern erwischt zu werden. 
Preis: 39,- DM 
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DEATH-TRAP, ein dreldl mens lonal es Graf ik-Abenteuerspiel 
(Adventure) : 

Ein Progranm zum wahnsinnig werden' Sle berinden sich in etne« 
Labyrinth nt uber 1100 Roumen. in dem es von gefahr lichen 
Einwohnern und Gegenstanden wimmelt. Finden Sle die wichtlgen 
Segenstande und wenden Sie sie richtig an, urn bus den Labyrinth 
iu entkotn»*h. Zwei vorraussetiunaen mussen sllerdlngs erfullt 
sein: Ihr Colour-Genie »u(J 32K RAM haben, und Sie mussen 
elementare Engl ischhenntnlsse besltzen, da die Sle Kommandos in 
Form von englischen Satzen eingeben. 
Prels: 69.- DM 

TCS-CHOPPEPi: Die Geschnacker slnd verschleden - aber dies ist 
wohl das beste Videospiel. das es z.Zt- rur das Colour-Genie 
gibt' Dreizehn Ihrer Hemeraden slnd in elnen von vier rieslgen 
Labyrlnthen ausgesetzt worden. Versuchen Sie nun, dlese mlt 
Ihrem Hubschrauber zu retten' fiber vorsicht. Ihre Freunde 
werden scharf bewacht ■ 
32K RAM sind ouch hier notwendig. 
Prels: 69.- DM 

DOPPEL-wURtv. Vielleicht kennen Sie unser beUebtes Spiel 
"Tausendfup". "Doppel -Wurm" ist sehr ahnlich. at lerdings 
splelen hier zwei Spieler gegeneinander , was die Spannung 
naturlich erhoht . Achtung: Nur fur 3oyst ick-Besi tzer < 
Prels: 39.- DM 

MADTREE: Ein schwieriges videospiel: Sle sind elne flei0ige 
Btene und mussen eine Reihe von Btumen stondlg bestauben. damit 
dlese nlcht eingehen. Doch diese Blumen Slnd undenkbar und 
gefahrden Sie, 
Preis: 39.- DM 

DIG-BOY; In Ihre* unteri rdischen Reich kampfen Sle gegen 

Drachen und andere Untiere. Loeken Sie diese unter einen 

der wackligen Felsen. um sle zu zerschmet tern. 

Dieses Spiel ist sehr emprehlenswert . da es elne ttenge 

Abwechstung bietet. 

Preis: 39.- DM 

EMPIRE: Fur alle. die nicht nur reine Aktion wollen, ist 
"Empire" das ldeale Spiel. Dieses Spiel kann mlt bis zu sechs 
Spielern gleichzeitig gespielt werden, der Computer spiett 
ebenTalls mlt. Jeder Spieler hat ein kleines Reich, das nun 
durch Handel. Potitik, Krieg u.s.w. zu Wohlatand kommen soil. 
Dabei stehen Sie mit den anderen Notionen standlg in Beziehung, 
sel es durch Handel Oder durch Krieg. 

Anspreehende Grefik maeht das Program* noch interessanter . 
Ihr Colour-Genie muf> fur "Empire" auf 32H RAM auTgerustet sein. 
Preis: 69.- DM 
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LUNftR-LANDERs Eine perfehte Mondlandungssmul at ion »it Super- 
grafiR i Die Idee ist zwor olt. aber die AusCuhrung dieses 
Programmes nacht den "Lunar-Lander" zu elnem unserer besten 
Spiels. Sie benotigen 32K Raa. Oas Spiel hann wanlweise auch 
nit den EG2013-Joyst ichs gesteuert werden. 
Preisi 39.- DM 

COLOUR- FROGQER: Better Sie Ihren Frosch zuerst uber die StraPe 
und donn uber den Flu0 ■ Ein sponnendes Unterhal tungsspiel , 
an den die ganze Fanilie I ange Zeit Spass hoben wird. Besonders 
gelungen ist bel diesea Program* die musiMiscne Untermalung. 
Prels: 39.- OH 

CRAZY-POINT s Dos neueste Spiel von J. Buchmul ler . den Author 

des TCS-Choppers - Super-Graf lt< und Super-Ton < 

In 16 Levels ntussen Sie. ehnllch wle bei unserem Spiel 'Netzo', 

versuchen alle Flachen auszumalen, ohne sich von den hektischen 

Qegnern er wise hen zu lassen. 

Preist 69.- OM 

MEMORY: Das betiebte Brettspiel nun auch als Version rur das 

Colour-Genie ' 

Schone Grarih und die gute Spiel idee machen dieses Program 

eapfeMenswert . 

Prels: 39.- DM > 
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3. ) LERNPROGRPiMME, ELEKTRONlKPROGRRMtlE : 

WlTHEMATIK-LERNPROGRRrlM: Interessant fur Kinder bis in'S 
Grundschul al ter . Wahlweise kSnnen die vier Grundrechenart en 
geiibt werden, wobei nan zwischen verschiedenen Schwier igkei ts- 
graden wahlen kann. Lustige grafische Gestaltung sorgt dafiir. 
dap das Otjen Spass *ocht . 
Preis: 26.- DM 

GP.UNOEIGENSCHP.FTEN DES L1CHTS COPTIK) : Oiese 32MByte I onge 
Programm erklart die Brechung, Reflexion, verschiedene 
Linsentypen. . . Rnsprechende Grafik, Benutzereingaben, Menu und 
Obungsaur gaben nachen dieses Program* sehr lehrrelch. 
Preis: 33.- OM 

NE555: Erklfirurig und Rriwendung des Timer-ICs NE555 werden nit 
diese* Progroii zum Kinderspiel . Totle Grafik und ousfiihrliche 
Dokument at ion heben dieses Programm hervor. 
Preis: 25.- DM 

PLOTTER: Plotter 1st ein anspruehs vol les Mat hemt ikprogrena, das 
beliebige Funktionen 2eichnet. Wertetebel len erstellt ... 
Preis; 39.- DM 

PHYSIK DES TRANSISTORS: fi'hnl ich aufwendig wie beim Program* 

'Optik' werden Sie hier in die Grundeigenscnaf ten des 

Transistors, verschiedene Scholtungen, Kennlinien u.s.h. 

eingewiesen. 

Fur dieses Programm sind 32K Byte RftM er f order I ich . 

Preis: 39 . - DM 
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4.) MUS IK PROGRAMME 

MUS1K: Dieses Programm spielt f es t programmer t e Musikstueke 
■it verbluf fender Qua! i tat. 
Preis: !>5.- DM 

ORGEL : Spieler, Sie Orgel auf Ihrem Colour-Genie ' 
Ihnen atehen zwei Manuale, einstel Ibares Delay und sojar 
elne Schl agzeugbeglei tung zur Seite. 
Preis: 25.- DM 

COLOUR-SVNTHESIZER: Ein Proa 1 ""™"- das man gesehen haben mu)J. ui 
es uberhaupt fur moglich iu halten. Der Colour-Synthesizer 
■sent aus Ihrem Colour-Genie einen vol Iwert igen 3-Hennl 
Synthesizer mit VCO, VCft. Hullhurve. Schlagzeug . . . 
r>cht Einstet lungen aller Regler konnen vorprograismiert . auf 
Tastendruck abgerufen und auf Band gesichert wcrden, 
Verbluffend ist such die graphische Darstellung. 
Preis: 69.- DM 

COMPOSER! Mit diesem Program* konnen Sie sehr einTach eigene 

Musikstueke kompomeren. Noten. Pausenzeichen u.s.w. werden 

grefisch dargestellt. konnen editiert und auf Band gespeichert 

werden. 

Pre IS: 39.- DM 



*« STAND OER TCS-SOFTWRREL ISTE , COLOUR-GENIE , VOfl 13.12.1983 ** 

Beachten Sie auch die fur das Colour-Genie I leferbaren Bucher: 
Technisches-Handbuch : Enthalt die kompletten Schaltplane. 
Erklarungen, CRTC-Untertagen, PSG-Unter lagen. . . 
Preis: 49.- DM 

Ookument lertes ROM-Listing fur das Colour-Genie : Unerlafilich 
fur den Maschinensprache-Programiiierer . In diesem Buch ist der 
komplette ROM und reservierte RPiM aufgel istet und erkiart. 
Preis: 59.- DM 

ORS Cotour-Genle BUCH I : fluf uber 100 Sei ten finden Sie hier 
interessante Programme - von Spielen bis zu Hi 1 f ^programmer. . 
:ut Tell auch jn Maachi nensprache - sowie wertvolle Tricks und 
Erklarungen. Ein MufJ Tur jeden Colour-Genie-Besi tzer ' 
Preis: 39.- DM 

In Vorberei tung; Software fur diskette, neue Spiele ... 
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5.) PROGRAMME FUR DI SHETTENBENUTZER 

TAPE-DISK-CONV/ERTER: Dieses Program* ermoglicht es Ihnen, Ihre 
Maschinensprache-Kesset ten Csofern ungeschutzt) auf Diskette zu 
uberspiel en . wobet eine Verschiebung m SpeLcker »ogl ick ist . 
Au0erde» kann «en von Diskette auf Diskette, von Kassette auf 
Hassette und von Diskette our Kassette uberspielen. 
Preis: 45.- DM 

COLZflP: Mit "Colzap" konnen Sie auf jeder (ungeschutzten) 
Colour-Seme-Dishette alle Sektoren lesen. bel tebig endern 
Cm ASCII Oder Hex). Sektoren schrelben. den Disknaaen 
anzeigen. den freien Platz auf der Diskette ausgeben lessen, 
u . a . m 
Preis: 15.- DM 
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BESTELLFORMULBR 

Zur Bestellung von Col our-Genie-Programmen honrten Sie dieses 
Formulor benutzten. Schicken Sie dieses an Fhren GENIE-Handl er 
Oder direkt an TCS Computer GmbH 

Kotnstrafie n 

5205 St. August in 2 

Tel . : 02241 / 28071 

Bankverbindungt 
Roif feisenbanh rienden BLZ 3706950T Konto-Nr. 1525 

Der Versand erfolgt per Nachnahme Oder Voraushasse our oblges 
Konto Cdies noturlich nicht, wenn Sie bei Ihrem Handler 
bestet len) . 



Ich bitte um Zusendimg rolgender TCS Colour-Genie-Programne: 



flnzahl i Name des Prograntms : Preis/OM : Gesamt 



Gesamt : DM 

Melne Adresse 1st: 

Name : 

StrafJe; 

Ort s 



Datum: Unterschri ft : 
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Rquh fur Notizen 
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